-while (sysread($switch, $byte2, 1))
-{
-	print $client $byte2;	
-}
+sleep(50)