Select Code to Download

sub prototest($); # declare sub and prototype 

prototest( 4 ); # dies if no param or more than 1 param is passed
...
sub prototest($){
    print '1, 2, 3, ', @_;
}

sub prototest($){
    print '1, 2, 3, ', @_;
}
prototest( 4 ); # dies if no param or more than 1 param is passed