#!/usr/bin/perl -w
use Student3;
use warnings;
use strict;
my $student1 = Student3->new;
$student1->set_student;

$student1->show_student;
$student1->add_courses(["C++", "Java"]);
$student1->show_student;
$student1->drop_courses(["C++"]);