If you want it to be a lot cleaner, try:

#!/opt/perl5/bin/perl -w

use strict;

my @lines =();

for(<>) {
  push(@lines);
}
for(reverse(@lines)) {
  print;
}
[download]

Or maybe that last for loop can look like:

while(@lines) {
  print pop(@lines);
}
[download]

--isotope
http://www.skylab.org/~isotope/