use Devel::Peek; use Data::Dumper; use Test::More tests => 1; BEGIN { use_ok('SJT'); my $s1 = SJT->new; Dump($s1); print "HERE be 2:".$s1->get(1)."\n"; print "\n"; };