print $in "PING\n";