sub CreateFunction {
  my (&#36package, &#36functionName, @params, ...) = @_;
 
  no strict 'refs';
  *{&#36package . '::' . &#36functionName } = 
  sub {
    # content of sub, e.g.
    my @params = @_;
    print "Sub called with @params\n";
  }
  use strict 'refs'; # optional, wenn am blockende
  
} # CreateFunction

&CreateFunction('A', 'PrintIrgendwas');
&A::PrintIrgendwas(20, 30, 40);