print $new_sock "Hallo!\n";