Select Code to Download

package Student;
sub new { # Constructor
...
}

1;

#!/usr/bin/perl -w
use lib("lib");
...

print "\nThe major for ", $ptr1->get("Name"), 
         " is ", $ptr1->get("Major"), ".\n\n";