=head2 test( $i ) =cut sub test { my $i = shift; die("Missing argument i.") unless defined $i; } # /test