open T,"<","/dev/tty" or die "Can't read from /dev/tty: $!";
print "What do you want to do with this message?";

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