my $retone=Send->temp();

my $obj=new Send;
my $ret=$obj->temp();

package Send;
sub temp
{
	return "temp";
}
print  "one, $retone, two, $ret\n";