Select Code to Download

f
e
...
c
b
a

use warnings;
use strict;
...
until ($fh->eof) {
    print $fh->readline;
}

a
b
...
d
e
f