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


##</code><code>##

package Temp;
sub new
{
	my ($class,$params)=@_;
	my $self={};
	$self->{param}="$params";
	bless($self,$class);
	return $self;
}
sub test
{
my ($self)=@_;
my $param=$self->{param};
print "$param";
}
###main code
use Temp;
my $obj=Send->new("some param");
$obj->test();