#!/usr/local/bin/perl
$filename = "longsecs.txt";
open(FILE, $filename) || die($filename." not found.\n");
# Read in the whole file into atts array (one line per array element)
@indata = <FILE>;
close(FILE);
@outdata = reverse @indata;
open(OUTFILE, ">rev".$filename);
print(OUTFILE @outdata);