#!/usr/bin/perl -w
print "This will reverse all lines.\n";
@input = <>;
print reverse(@input);