#!/usr/bin/perl -w
use strict;

my @lines;

while (<>) {
	push @lines, $_;
}

foreach my $line (reverse @lines) {
	print $line;
}