A Perl reverse lines tip

Perl rules! Yesterday I needed a program that would print a file in reverse, i.e., last line first, first line last. Before I could fret "man, how am I going to do this?", a powerful two-line program spewed forth:

@lines = <>;
print reverse @lines;

Life is good.

Almost as cool ... by the time I was done and created what I *really* wanted, I ended up with a short program named rcat, i.e., "reverse cat." You can find this program in the open source go command project.