my $str = '';
my $tmp;
while (read($handle, $tmp, 32*1024)) {
    $str .= $tmp;

##</code><code>##

my $str = '';
while (read($handle, $str, 32*1024, length($str))) {

##</code><code>##

pos($str) = 0;

##</code><code>##

$str = substr($str, pos($str));