while (<INFILE>) {
        print CRYPTFILE $cipher->crypt( pack("H*",$_) );
}