Select Code to Download

#!/usr/local/bin/perl
use strict;
...
}
1;

my $object = new Test1( "foo");
$object->sub2();
print $object->getTxt();