my $buf=$content='';
$content.=$buf while read(HANDLE,$buf,8192);