#!/opt/perl5/bin/perl -w

use strict;

my @lines =();

for(<>) {
  push(@lines);
}
for(reverse(@lines)) {
  print;
}