Select Code to Download

my $x = 0;
my $sub1 = sub { print "$x\n" };
...
}
&$sub1;
&$sub2;

my $x = 0;
my $sub1 = q{ print "$x\n" };
...
}
eval $sub1; die $@ if $@ ne "";
eval $sub2; die $@ if $@ ne "";