Select Code to Download

my $foo = undef;

my ($foo, $bar) = split " ", int rand 42;

sub foo {
    baz();
...
        print $foo;
    }
}