#!/usr/bin/perl

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

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

print STDOUT  "What do you want to do with this message?\n";$|++;
sleep (5);
my $response = <STDIN>;
print $response;$|++;