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

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