Select Code to Download

cat /home/spjal/files/bprcf.parms  /home/spjal/files/temp | 
perl ' BEGIN { linectr=0 }
         { linectr++

#!/usr/local/bin/perl -w;
use strict;

...
my $lline;
while(<INFILE>) {
    chomp;    # Remove the newline.

    if(++$linectr == 1) {
        my($scheck, $echeck, $fcheck, $lcheck) = split;    # Splits on
+ whitespace by default.

      if ( $fcheck == $scheck )
        { $fline=2 }
...
    { print OUTFILE "$_\n";
    }
}