my $file = 'C:/Work/PAYROLL>TXT';
open(my $fh, '<', $file) or die "Cannot open file '$file' for reading: $!";