package one;
sub new {
	my ($class,%args)=@_;
	my $self=();
	$self->{test}='test';
	bless($self,$class);
	return($self);
}
1;