Select Code to Download

my $code = sprintf <<'EOC', $var1, $var2;
sub doSomething {
...
   ...
   return $result;
}

my $code = sprintf <<'EOD', $a, <<EOD2;
my $var = %d;
...
my $var = 0;
my $x x= 1000 * 18;
my $y = 123455;