#!/usr/bin/perl

my @msg = (<>); chomp(@msg);

print join("\n",@msg);

print "What do you want to do with this message?";

my $response = <STDIN>;
print $response;