while (read ($fh, $buffer, $buffsize))
{
print $tmp $buffer;
$bytes_retrieved += bufsize;
}