Help for this page

Select Code to Download

Select or download this

while(sysread(CSV, $record, 66)) {
        my $count = 0;
...
        }
        &process(\%map);
}