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

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