my $sock = IO::Socket::INET->new( 
   Proto=> "tcp", 
   PeerAddr => "$IP", 
   PeerPort => "$port")
   || die "Could not connect to host => $IP:$port \n"; 
print $sock $LOGINPDU."\n"; 
while($ans=<$sock>){ 
   $ans1.=$ans; 
} 
$sock->flush(); 
if($ans1) { 
   print $sock $transPDU."\n"; 
   while($tns=<$sock>) { 
     $tns.=$tns; 
   } 
} 
$sock->close();
[download]