package myTest;

sub new {

	my $item={};
	bless $item;
	return $item;
}

sub myTestFunc {
	my $item = shift;
	print "doing job ... \n";
}

1;