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

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

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

close STDIN;
open STDIN, '<', '/dev/tty' or die "Can't read from /dev/tty: $!\n";
my $response = <STDIN>;
print $response;

q:~/tmp [22:27:58]$ ls | ./headybrew.pl
headybrew.plheadybrew.pl~
What do you want to do with this message?foo
foo
q:~/tmp [22:28:08]$