$ perl -wne'5..8 and print' extract.pl
use autodie;

sub usage
{
$