package abc; ... return 1 if caller; package main; my $abc = abc->new(); ...