Select Code to Download

use warnings;
use strict;
...
}
close $ifh or die "tac $INFILE: ".($!||"\$?=$?");
close $ofh or die "tac (out): ".($!||"\$?=$?");

use warnings;
use strict;
...
    seek $fh, 0, 0 or die "seek $INFILE: $!";
}
close $fh;