package Factory::Singleton::Log; my $LOGGER = Log::Common->new(SOME PARAMETERS HERE); sub new { my $class = shift; return undef if ref $class; return $LOGGER; } 1; __END__