Select Code to Download

my $code = 'print qq{Hello world!\n};';
eval $code;

my $code = '1+1';
my $result = eval $code;
print $result, "\n";