Select Code to Download

 Directory of C:\Steve\Dev\PerlMonks\P-2013-09-04@0259-Perl-COBOL-Gues
+s

...
09/04/2013  03:38 AM               144 varchange.txt
               3 File(s)          3,233 bytes
               2 Dir(s)  53,636,513,792 bytes free

I-RECNUM:INPFIL-RECNUM
I-EMPNAM:INPFIL-EMPNAM
...
O-RECNUM:OUTFIL-RECNUM
O-EMPNAM:OUTFIL-EMPNAM
O-EMPAGE:OUTFIL-EMPAGE

000100 IDENTIFICATION DIVISION.
000200     PROGRAM-ID. TEST1.
...
007100 9999-EOJ.
007200 
007300 STOP RUN.

#!/usr/bin/perl -w

...
exit;

__END__

C:\Steve\Dev\PerlMonks\P-2013-09-04@0259-Perl-COBOL-Guess>varchange.pl
+ TEST1.COB

...
007100 9999-EOJ.
007200 
007300 STOP RUN.