#!/usr/bin/perl -w
# File: useEmployee

use Employee2;

$boss = new Employee(8084, "Scherer", "Leigh", "Manager",
                     "SM", 6892, "22-FEB-89", 50000);
print $boss->whoAmI, "\n";

$boss->promote("Department Manager", 10000);
print $boss->whoAmI, "\n";


