package myFactory; my $handle = undef; # NO ONE OUTSIDE THIS PACKAGE 'SEES' THIS sub factory { $handle = WWW::SalesForce::Simple->new() ... ## blah blah unless defined($handle); # NOTICE 'UNLESS' .. ONLY TRUE FIRST TIME return $handle; } 1; # ALL PACKAGES MUST 'RETURN TRUE' }