2014-01-02T20:53:54 MarkusHWas muß ich machen, damit A funktioniert?
1 2 3
my $source = 'sub{print shift}'; *foo = eval $source; foo(123);