Select Code to Download

sub do_stuff {
    my($x) = ($_[0] || 0);
    ...
}

my $x = 10;
print $x, "\n";

...
--output:--
10
10