{package Student;
  sub new {
    my ($class, $name, $age, $regd_no)=@_;
    my $objref = { NAME    => $name, 
                   AGE     => $age,
                   REGD_NO => $regd_no
                 };
    print"\n class: $class\n";		   
    return bless $objref, $class;
  }

  ...