package Junk3;

sub new {
    my( $class, $attributes ) = @_;
    my $self = bless { %{ $attributes } }, $class;

    return $self;
}
package main;

my $obj3 = Junk3->new( { a=>1 , b=>2, c=>3 } );