package TEST;
..........
sub new
{
	my $class 	= shift;
	my $self 	= {@_};
	bless $self, $class;
	return $self;	
}

sub xxx
{
   my $self = shift;
   my $par = shift;
   return $par;
}

##</code><code>##

my $obj = new TEST();
print $obj->xxx("hi")

##</code><code>##

print xxx("", "hi");