#!/usr/bin/perl

die("usage: sillytest file [file [file [...]]]\n")
   if not @ARGV;

my @msg = <>;
chomp(@msg);
print(join("\n", @msg));
print "What do you want to do with this message?";
my $response = <STDIN>;
print $response;