Select Code to Download

package Temp;
sub test
...
use Temp;
Temp->test("some param");

package Temp;
sub new
...
use Temp;
my $obj=Send->new("some param");
$obj->test();