Select Code to Download

package Student3;
sub new {my $class = shift;
...

}
1;

#!/usr/bin/perl -w
use Student3;
...
$student1->add_courses(["C++", "Java"]);
print "-" x 25, "\n";
$student1->show_student;