There's also a module that does this (surprise :), File::ReadBackwards. From the synopsis:

use File::ReadBackwards;

tie *BW, File::ReadBackwards, 'log_file'
  or die "can't read 'log_file' $!";

print while <BW>;
[download]

-- Hofmator