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

##</code><code>##

#!/usr/bin/perl
use Data::Dumper;
use one;

my $x=one->new();
print(Dumper($x));

##</code><code>##

$VAR1 = bless( {
                 'test' => 'test'
               }, 'one' );