print $sock "$data\r\n";
my @output;
$output = join('', @output);