How much memory do you have at your disposal?

my @input = <STDIN>;
my $i = $#input;
while ($i >= 0) {
  print $input[$i--];
}
[download]

Note that if you want to use less memory, you could split the file into chunks, reverse the chunks and then reverse-concatenate the chunks.