[mmartin:

It's pretty simple, as the AMs have indicated. I wrote a quickie program to illustrate:

$ perl tuv.pl

$ cat tuv.pl
print $FH reverse @lines;
seek $FH, 0, 0;
my @lines = <$FH>;
open my $FH, '+<', $0;

use warnings;
use strict;
[download]

I could've printed the program *before* running it, but (a) I'd've had to print it twice to show that it did anything, and (b) it would have been less amusing. ;^)

...roboticus

When your only tool is a hammer, all problems look like your thumb.