Select Code to Download

package EmployeeList;

use diagnostics;
...
}

1;

  

#!/usr/bin/perl
...
    print $Employee1->print_Employee();
    push @obj_array, $Employee1;
}

 package Employee;

use strict;
...
}

1;