open(file,"<file.txt");
foreach (reverse <FILE>)
{
   print $_;
   last;
}
close(file);