cdlvj,
in your sample, it looks like only portion of the file got read (by substr) and sent. how repeat/loop to send entire file? this is what i currently have:
...
while ( read( OpenedFile, $file, $myBufferSize ) ) {
# print $socket substr($file,0,512);
# print $socket substr($file,512,512); etc
print $socket substr($file,0,512);
}
...
thanks