Help for this page
#!/usr/local/bin/perl use strict; ... } 1;
my $object = new Test1( "foo"); $object->sub2(); print $object->getTxt();