package Temp;
sub test
{
 my ($params)=@_;
print "$params";
}
###main code
use Temp;
Temp->test("some param");