#!perl -w
#This is the first version

use strict;

my $file;

print "Enter a filename: ";
chomp ( $file = <STDIN> );

open ( FILE, "$file" );
for (reverse (<FILE>)){
    print;
}

close FILE;

# This is the second version :D very small
perl -e "print for (reverse(<>))";