Select Code to Download

#!/usr/bin/perl

...

my $obj2 = Test2->new();
$obj2->do_this();

#!/usr/bin/perl

...
Test1->import(qw(do_this));

do_this("some string");