Select Code to Download

# ...
my $useless_line = <$info>; # reads the first line and throws it away
...
        last if $. >= $maxline;
        print "$. \n";
}