package HeckIfIKnow;

sub new {
   my ($obj,%opts)=@_;
   return bless {%opts} => (ref $obj || $obj);
}

#####

Package main:

my $foo = HeckIfIKnow::new(
  -opt1 => '3456',
  -opt2 => '1234'
);