sub test {
      my $self = shift;
     my %args = @_;

      if (not defined $args{opt_parameter}) {
              $args{opt_parameter} = 17;
      }

      if ($args{name} eq 'eu' ) {
              ....
     }

}

sub aufrufer {
      $obj->test(name => 'eu', zeit => 17.8);
}