Select Code to Download

#!/usr/bin/perl
use warnings;
...

binmode STDOUT;  # just to play it safe
print $zipdata;

$z->print( encode( $encoding, "RECORD#\tREVISION#\tBOOK#\tCHAP#\tVERSE
+#\tTEXT, AS EDITED BY: $curdate $curtime (Pacific Time)$CRLF", Encode
+::FB_CROAK|Encode::LEAVE_SRC ) );
while ( ( $recnum, $revnum, $book, $chap, $verse, $text ) = $quest->fe
+tchrow_array() ) {
    $z->print( encode( $encoding, "$recnum\t$revnum\t$book\t$chap\t$ve
+rse\t$text$CRLF", Encode::FB_CROAK|Encode::LEAVE_SRC ) );
}