Select Code to Download

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

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

pos($str) = 0;

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