Select Code to Download

my $greet = "Hello World";
eval '
   print "$greet\n";
';

eval 'print "$gr' . 'eet\n";';

my $name = $greet;
eval 'print "$' . $name . '\n";';

$ perl -E'
   use warnings; use strict;
...
   say f->()
'
ok