Help for this page

Select Code to Download

Select or download this

sub sub1(*) {
    print "args(1): @_\n";
    print scalar $_[0], "\n";
    sub2(@_);
}