package Grok;
use vars qw(@ISA);
@ISA = qw(Class::Singleton);

package Main;
my $one = Grok->instance();   # returns a new instance
my $two = Grok->instance();   # returns same instance