#! perl -slw
use strict;
our $MAX ||= 512;

open TAIL, '< :raw', $ARGV[ 0 ] 
    or die "$ARGV[ 0 ] : $!";
sysseek( TAIL, -$MAX, 2 );
sysread( TAIL, my $buffer, $MAX );
my( $line ) = $buffer =~ m[\n(.*?$)];

print $line;