Select Code to Download

sub somefunc {
    my $arg = shift;
...
print "$x\n";             # prints "quz"
my @y = somefunc("c");
print join(",",@y),"\n";  # prints "foo,bar"