my $source = 'sub{print shift}'; *foo = eval $source; foo(123);