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