my $data;
while ($dataconn->read(my $buffer, 1024))
{
    $data .= $buffer;
}

print $data;