sub lastn {
        my($file, $lines)=@_;
        my $fh;
        $lines++;
        if (! open($fh, $file) ) {
                print "Can't open $file: $!";
                return;
        }
        binmode($fh);
        seek($fh, 0, 2);  # Seek to end
        my $nlcount=0;
        while($nlcount<$lines) {
                last unless seek($fh, -1, 1);
                $_=getc($fh);
                die unless defined $_;
                $nlcount++ if ( $_ eq "\n");
                last if $nlcount==$lines;
                last unless (seek($fh, -1, 1));
        }
        $fh;
}