package Foo;
...
return 1 if caller;

package main;

my $test = Foo->new(...);
...