$dbh->{LongReadLen} = 256 * 1024; ($body) = $dbh->selectrow_array("select content from $dtab where name = '$name'"); $body =~ s/\r/\n/g;