Example


open(INFILE, "<$ARGV[0]")
    or die "open failed: $!";

while ($line = <INFILE>) {
    unshift (@array, $line);
}

close INFILE;

open(OUTFILE, ">$ARGV[1]")
    or die "open failed: $!";

foreach $line (@array) {
    print OUTFILE $line;
}

close OUTFILE;