Select Code to Download

my($scheck, $echeck);
while(<FILE1>) {
    chomp;
    ($scheck, $echeck) = split;   # or whatever.
}
close(FILE1);    # Be tidy.

open(OUTFILE, ">/home/spjal/files/bprcf.tmp") || die "Dead on file ope
+n. $!\n";
print OUTFILE "Important results.\n";