So, just this line of code
print $sock "Content-type: text/plain\n\n";
wouldn't make it work.