open(FILE, "<$ARGV[0]") or die "Couldn't open $ARGV[0] for reading.\n";
my @lines=<FILE>;
while (my $line = pop @lines) {
    print $line;
}