for(my $i=0; $i <= 10; $i++)
{
   print $sock "$i\n";
}

print $sock "**** End of transmission ****";