do {$bytes_read = sysread(DST,$data,1024,length($data));} while ($bytes_read == 1024);