sub lastn {
        my($file, $lines, $bufsiz)=@_;
        $bufsiz ||= 1024;
        # Changed FH to STDOUT to avoid warning
        my $fh = \do { local *STDOUT };
        $lines++;
        if (! open($fh, $file) ) {
                print "Can't open $file: $!<P/>";
                return;
        }
        binmode($fh);
        my $pos = sysseek($fh, 0, 2);  # Seek to end
        my $nlcount=0;
        while($nlcount<=$lines) {
                $bufsiz = $pos if $bufsiz > $pos;
                $pos = sysseek($fh, -$bufsiz, 1);
                die "Bad seek: $!" unless defined $pos;
                my $bytes = sysread($fh, $_, $bufsiz, 0);
                die "Bad read: $!" unless defined $bytes;
                $nlcount += tr/\n//;
                $pos = sysseek($fh, -$bufsiz, 1);
                die "Bad seek: $!" unless defined $pos;
                last if $pos == 0;
        }
        seek($fh, sysseek($fh, 0, 1), 0) || warn;
        <$fh> for $lines..$nlcount;
        $fh;
}