Help for this page

Select Code to Download

Select or download this

sub foo
{
    my $x = shift;
    my $y = shift;
    ...

Select or download this

sub foo
{
    my ($x, $y) = @_;
    ...