Select Code to Download

use strict;
use warnings;

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

#! perl
use strict;
...
start: 1/31
ccc
end:   2/13

 1:26 >perl 1110_SoPW.pl
4 start: 1/17
...
9 end:   2/13

 1:26 >