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