$ perl extract.pl 5 8 extract.pl
5: use autodie;
6:
7: sub usage
8: {
$