#!perl -w

use strict;

my $file;

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

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

close FILE;