$sock = new IO::Socket::INET (  PeerAddr => $ipreal,
	PeerPort => 139,
	Proto => "tcp",
	Timeout => 1,
	 Type => SOCK_STREAM);

if ($sock) {$|=1;
      print "\nstarte prerequest\n";
if ($sock->send($prerequest)){$sock->recv($data,1);}