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