q:~/tmp [22:37:14]$ cat headybrew.pl
#!/usr/bin/perl

chomp(my @msg =<>);
print @msg, "\n";

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

$response = <STDIN>;
print $response;

q:~/tmp [22:37:17]$ ./headybrew.pl 'ls|'
headybrew.plheadybrew.pl~
What do you want to do with this message?foo
foo