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