use strict;
use warnings;
use Tie::File;
my $file = shift or die "usage: $0 file\n";
tie my @lines, 'Tie::File', $file or die "error: $!";
print $lines[$#lines];   # this is the last line in the file