sub Socket_Read {

   my $Socket = shift;
   my $ibits = '';
   my $Read_Data;

   vec($ibits,fileno($Socket),1) = 1;

   while(select($ibits,undef,undef,0.2)) {
          
         last if(!sysread($Socket,my $Input,8192));
	 
	 $Read_Data .= $Input;
   }

   return($Read_Data);
}