package HeckIfIKnow;

sub new {
   my ($class, %opts) = @_;
   return bless(\%opts, $class);
}

##</code><code>##

package main;

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