Select Code to Download

foreach my $employee (@employees) { 
   if ( $employee->salary < $threshold ) { 
      increase_salary( $employee, 3_000 );
   } 
}

    use strict;
    use warnings;
...
    }

1;

> perl  unknown.plx

...
Show    |okay|