while(1){
	$MySocket->recv($text,2);
	if($text ne '')
	{
		print "\n Number'", $text,"'\n","\n";			
		####Problem here.####
                if($text=~m/\d.*/){
			print "\nThat's a number";
		}else{
			print "\nNot a number";
		}
	}else{	
			print "Cilent has exited!";
				exit 1;
	}
}