use IO::Socket::INET;
$MySocket=new IO::Socket::INET->new(PeerPort=>'$port',	Proto=>'tcp',PeerAddr=>"$ip");
$MySocket->send("02");