=head2 test( $i ) =cut sub test { my $i = (defined $_[0] ? shift : die("Missing argument i.")); } # /test