use Employee;
# defines Employee, Employee::Boss,
# Employee::Hourly, and Employee::Intern
$joe = Employee::Intern->new('Joe', 'Schmoe');
$jay = Employee::Boss->new('Jay','Schmay');
$not = Employee->new('Not', 'Happening');       # <-- dies