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