packsge CheckStuff; sub new { my $class = shift; my $bar = 2; bless \$bar, $class; } #### my $cs = CheckStuff->new(); #### my $csr = CheckStuff::Rigid->new();
## my $cs = CheckStuff->new(); ##
## my $csr = CheckStuff::Rigid->new();