tie $somecode, CodeNRef => qq{print "This is my code\n"};
$somecode->( );
print tied $somecode;