Select Code to Download

#!/usr/bin/perl

...
print 'var_3: '.$thing->{'var_3'}."\n";
print 'var_1 from $one: '.$one->print_one()."\n";

use TOP::TEST;
use TOP::TEST::EXTENDONE;
...
print $thing->print_one()."\n";
print $thing->{'var_3'}."\n";