sub test{ my $p1 = shift || 1; [...]