open my $fh, "<", $filename
    or die "Can't open $filename: $!\n";

my $lastline;
$lastline = $_ while <FILE>;
print "$lastline\n";

##</code><code>##

use Tie::File;
tie my @file, 'Tie::File', $filename
    or die "Can't open $filename: $!\n";
print @file[ -1 ];

##</code><code>##

use File::ReadBackwards;
tie *FH, 'File::ReadBackwards',  $filename
    or die "Can't open $filename: $!\n";
my $lastline = <FH>;
print $lastline;