#!/usr/bin/env perl
use strict;
use warnings;
use StudentM;
use Data::Dumper;

my $stu1 = StudentM->new( name => 'Paul Lalli',  rin => 583710 );

$stu1->add_ica(0.5);

$stu1->add_hw(100);

print "Student 1: $stu1\n";
$stu1->major('CSCI');
print "Student 1: $stu1\n";

$stu1->add_hw(90, 80);

print "$stu1 is currently ", $stu1->status, "\n";
print "Grade for $stu1: ", $stu1->grade, "\n";

$stu1->show_status();

print "HWs: @{$stu1->hws()}\n";
print "ICAs: @{$stu1->icas()}\n";