Select Code to Download

my $g=lastn("/usr/dict/words", 400);
print while(<$g>);

sub lastn {
        my($file, $lines)=@_;
...
        seek($fh, sysseek($fh, 0, 1), 0) || warn;
        $fh;
}