BEGIN {
     package mod;
     $VERSION = 1;
     package main;
}

BEGIN {
     if (scalar(%mod::)
         && $mod::VERSION
         ) {eval " sub haveMod () { return 1; }"
            ;}
     else {eval "sub haveMod () { return 0; }"
           ;}
     sub checkMod () {
          if(haveMod)
          {return "goodMod";}
          else {return "badMod";}
     }
}
print checkMod;