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