open FILE, '<', $file or die("Can't read $file: $!");
my $lastline;
while (<FILE>) {
   $lastline = $_;
}