Help for this page

Select Code to Download

Select or download this

...
while (my $line = <EMPLOYEES>) {
...
print "d=$department\n";
print "s=$salary\n";
...