while (<INFILE>) {
        print CRYPTFILE $cipher->crypt($_);
    }