print "Enter filename: ";
my $file = <>;
print `tac $file`;