sub control{ my $self = shift; if(! $self->launcher(qw(diffcalc add))){ die "Unbekannter Parameter!\n"; } }