use strict;
use warnings;
use Employee;
use EmployeeList;
use Data::Dump 'pp';

my $E1 = new Employee( {name=>'George', hours=>40, hourlywage=>50.00} );
print "What does Data::Dump see for my Employee?\n";
pp($E1);

print "\nHow does it print?\n";
$E1->print_student();