That only initializes the first var, try this instead:

my ($recnum,$revnum,$book,$chap,$verse,$text) = ('') x 6;

TIMTOWTDI

my $CRLF = $OS eq 'Windows' ? "\r\n" : "\n";

use Socket ':crlf';
my $CRLF = $OS eq 'Windows' ? CRLF : LF;
[download]