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

##</code><code>##

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