Select Code to Download

sub blah {
    my ($foo, $bar, $baz) = @_;
...

    ...
}

sub blah {
    my ( $foo, $bar, $baz );
...
    }
    do_something;
}

sub blah {
    croak "You forgot something" unless all { defined } ( my ( $foo, $
+bar, $baz ) = @_ );
    do_something;
}