Select Code to Download

'OP\'s' => sub {
     my $lineno = 100;
...
     }
     close(FILE);
},

'`tail -100`' => sub {
    my @lines = split( /\n/, `tail -100 $f` );
},

    my @lines = `tail -100 $f`;