package My::Module;
...
return 1 if caller;

#! perl -slw
package main;
use My::Module;

my $thing = My::Module->new();
# Do My::Thing:)