Select Code to Download

#!/usr/bin/perl

...
print "What do you want to do with this message?";
my $response = <STDIN>;
print $response;