#!/usr/bin/perl -w
print "I will now read in a list of strings and reverse them.\n";
print "(You might need to use CTRL-D or CTRL-Z to stop the input.\n";
@list = <STDIN>;
print reverse @list;