#!/usr/bin/perl -w
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 () {
          #NOTE THE PARENTHESES
          if(haveMod())
          {return "goodMod";}
          else {return "badMod";}
     }
}
print checkMod;