my $obj = Class->new();
my $obj2 = Class->new(string => 'foo', num => 11);

package Class;
sub new{
	my $class = shift;
	my $attr = { @_ };
        bless $attr, $class;
}