64K socket I/O limit for Perl on OpenVMS?

[Carl Braesicke]

This script fragment hangs on OpenVMS until I trim "piece.out" below 64K bytes;  the 
same code works fine on a linux box with an untrimmed "piece.out":

...
use Net::MySQL;
...
open FILEHANDLE, "<piece.out" or die $!;
my $savestr = do { local $/; <FILEHANDLE> };
print "string loaded\n";
$mysql->query("truncate htmlquery");
print "table truncated\n";
$mysql->query("insert into htmlquery values ('" . $savestr . "')");
print "table loaded\n";
...

Is there a 64K limit in the OpenVMS socket support?

Compaq C V6.5-001 on OpenVMS Alpha V7.3-1
Summary of my perl5 (revision 5.0 version 8 subversion 1) configuration:
  Platform:
    osname=VMS, osvers=V7.3-1, archname=VMS_AXP
    uname='VMS vieja V7.3-1 AlphaServer ES45 Model 2B'
    config_args='-des'
    hint=none, useposix=false, d_sigaction=define
    usethreads=undef use5005threads=undef useithreads=undef usemultiplicity=undef
    useperlio=define d_sfio=undef uselargefiles=undef usesocks=undef
    use64bitint=undef use64bitall=undef uselongdouble=undef
    usemymalloc=undef, bincompat5005=undef
  Compiler:
    cc='CC/DECC', ccflags ='/Include=[]/Standard=Relaxed_ANSI/Prefix=All/Obj=.obj 
/NOANSI_ALIAS/float=ieee/ieee=denorm_results',
    optimize='/NoList',
    cppflags='undef'
    ccversion='60590001', gccversion='', gccosandvers='undef'
    intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16
    ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='int', lseeksize=4
    alignbytes=8, prototype=define
  Linker and Libraries:
    ld='Link', ldflags ='/NoTrace/NoMap'
    libpth=/sys$share /sys$library
    libs=
    perllibs=
    libc=(DECCRTL), so=exe, useshrplib=undef, libperl=undef
    gnulibc_version='undef'
  Dynamic Linking:
    dlsrc=dl_vms.c, dlext=exe, d_dlsymun=undef, ccdlflags=''
    cccdlflags='', lddlflags='/Share'


Characteristics of this PERLSHR image:
  Compile-time options: DEBUGGING
  Built under VMS
  Compiled at Oct 28 2003 15:49:56
  %ENV:
    PERLSHR="PERL_ROOT:[000000]PERLSHR.EXE"
    PERL_ROOT="DSA0:[PERL.PERL-5_8_1_ROOT.]"
  @INC:
    perl_root:[lib.VMS_AXP.5_8_1]
    perl_root:[lib]
    perl_root:[lib.site_perl.VMS_AXP]
    perl_root:[lib.site_perl]
    /perl_root/lib/site_perl
    .


Regards,

Carl B., x2796