============================
package MyTest;
use strict;
my %hash = (color=>"red", shape=>"round");
my $hashref = \%hash;
sub not_typical_new {
my ($proto, $arg) = @_;
my $class = ref($proto) || $proto;
my $self = $arg;
bless ($self, $class);
return $self;
}
my $obj = mytest->not_typical_new($hashref);
print $obj->{color}, "\n";