use warnings;
use strict;

open (EMPLOYEES,"employees.txt") or die "Tough: $!\n\n";
while ($line = <EMPLOYEES>) {
  chomp $line;
    ($name,$department, $salary) = split /\t/, $line;

print "n=$name\n"
print "d=$department\n"
print "s=$salary\n"

    next unless$name =~ /^Mr /;
    next unless$salary > 25000;
    next unless$department eq $ARGV[0];

    $name =~ s/Mr//;
    print"$name\n";
}
close (EMPLOYEES);

##</code><code>##

./employee.pl: line 1: use: command not found
./employee.pl: line 2: use: command not found
./employee.pl: line 5: syntax error near unexpected token `EMPLOYEES,"employees.txt"'
./employee.pl: line 5: `open (EMPLOYEES,"employees.txt") or die "Tough: $!\n\n";'