Select Code to Download

sub xxx
{
...
my $x2 = shift;
print "$x1, $x2\n";
}

..............
yyy( <xxx("hi", "i am here")> )
...
..........
call <xxx>;
}