#!/usr/bin/perl -w
#COMMENTED OUT
#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;