if (caller) {
...
}

##</code><code>##

unless ( caller ) {
    # here go the tests that are only called when the module is run as:
    # perl Module.pm
}

##</code><code>##

return 1 if caller; # end of the module's own code

# Test Code goes here