Select Code to Download

my $cr1 = sub {
...
 $foo = $bar * $baz;
}

my $cr3 = sub {
 $mul = $op1 * $op2;
...
my $cr4 = sub {
 $foo = $baz * $bar;
}