Select Code to Download

fred.pl
use MyMod;
MyMod::db->fred(MYMOD_DEFAULT);

MyMod.pm
use strict;
...
        print "The constant is ", $_[1], "\n";
}
1;

MyMod/db.pm
use strict;
...
        print "hello\n" if (MYMOD_DEFAULT);
}
1;