package Junk4;

sub new {
    my( $class, $attributes ) = @_;
    return bless $attributes, $class;
}
my $obj4 = Junk4->new( { a=>1 , b=>2, c=>3 } );