its me again, CHARLIE. anyway, i found a workaround in my problem. i found the command SHUTDOWN. heres my code:

#!/usr/bin/perl -w

use IO::Socket;

$host="202.46.24.25";
$port="21";
#$flags=100;

while ($port<24)
{
  $remote = IO::Socket::INET -> new (
             Proto => "tcp",
             PeerAddr => $host,
             PeerPort => $port
             ) ;

  if ($remote) { 

#    $remote->recv($line, $flags) or die "Can't recv: $!\n";
#    sysread($remote, $line2, 4*1024) or die "couldn't read any data";
+ 
#    print $remote "test foo \n\n\n";
#    print $remote "\^\]\[\n\n\n";

    shutdown($remote, 1);     # can be 0, 1, 2    
    @line = <$remote>;

    close $remote;
    print "$host:$port=>\tActive\t@line\n";
#   print LOG "$host:$port=>\tActive\n";
#   push @active_ports, $port;
  }

  else 
  { 
    print "$host:$port=>\tInactive\n"; 
#   print LOG "$host:$port=>\tInactive\n";
  }  

$port=$port+1;
}
[download]

heres the sample output:

202.46.24.25:21=>       Active  220 cronus.wima.ac.id FTP server (Vers
+ion wu-2.6.1-20) ready.
 221 You could at least say goodbye.

202.46.24.25:22=>       Active  SSH-1.99-OpenSSH_2.9p2

202.46.24.25:23=>       Active  ÿýÿý ÿý#ÿý'
[download]

the thing is... its already working. but my friends box when queried on telnet isnt supposed to display ÿýÿý ÿý#ÿý'. i dunno why that thing comes out on telnet queries. my friend's box should display the following:

Trying 202.46.24.25...
Connected to 202.46.24.25.
Escape character is '^]'.
Red Hat Linux release 7.2 (Enigma)
Kernel 2.4.7-10 on an i686
[download]

so got any ideas? please.... no NET::Telnet ideas! tnx for the responses. ive already done my part donating a working code, hope it will be useful for some persons, but i really need to make that TELNET response captured properly. tnx again!