unless( __FILE__ =~ /\.pm$/ ) { # Skip if loaded as a module
   ...
}

##</code><code>##

sub main {
   ...
}

main unless caller;