if(exists $mh{$sub}){ # aus der Source den Code erzeugen und ausführen if(ref($mh{$sub} ne 'CODE')){ $mh{$sub}=eval "sub{$mh{$sub}}"; } return $mh{$sub}->(@_); }