unless(fork) { eval($code) || die("Doh - $@\n"); }

##</code><code>##

use strict;
use vars qw($me);
use CodeMod;
$me = "Bob";
&CodeMod::MySub;