$ perl -le '$a=\&foobar;eval "sub foobar{print qq(hallo);}";$a->();'
hallo