Select Code to Download

   sub new {
      my $proto=shift;
...
      
      bless $self,$class;
   }

    my $inst=new MyClass(
                 name => 'mr.nick',
                 rank => 'novice',
                 sleep_level => 'not enough'
             );