# $fh_cipher->write($cipher->crypt($fh_plain->getline)) until ($fh_plain->eof); do { $fh_plain->read($buf, length($self->{SYMMKEY})); $fh_cipher->write($cipher->crypt($buf)) } until ($fh_plain->eof);