Select Code to Download

package MyModule;

...
CHECK{ print $MOD_CALL ? "Called as a module\n" : "Called as a script\
+n" }

1;

if ( @ARGV ) {
    print "I'm a script!\n";
...
  exit 0;
}
# only get to here if you we are a module