if ($mode == 0) { open(INFILE, "<$inFile") || die "Error opening source file for input! \n"; open(CRYPTFILE, ">$cryptFile") || die "Error opening crypt file for output! \n"; $cipher->start('encrypting'); while () { print CRYPTFILE $cipher->crypt($_); } print CRYPTFILE $cipher->finish; close INFILE; close CRYPTFILE;