Here is a snippet of the code that I am using:

$t = new Net::Telnet( Timeout => $conn_timeout,
                  Errmode =>"return");

$firsttime = 0;
while (1) {

chomp( @target_list = <TARGET_FILE> );
close TARGET_FILE;
foreach $target ( @target_list ) {
        ( $target_ip, $target_name, $target_port ) = ( split /\s+/, $t
+arget );

        my ($sec,$min,$hour,$mday,$mon,$year) = gmtime(time());

        $mon += 1;
        $year += 1900;
        $time = ".$mon.$mday.$year.$hour:$min:$sec";
        $filename = ($dumpfilename .$target_name).$time;
        $t->dump_log($filename);
        $ok = $t->open(
                Host => $target_ip,
                Port => $target_port);
        if($ok)
        {
                if(!($t->waitfor(String=>$wait_string,
                                Timeout => $prompt_timeout)))
                {
                   if (($var=( $actualtime = time) - $firsttime) > $al
+arm_interval)
                        {
                          sendalarm( "agent process $target_name is no
+t running on $target_port",
                                "Agent-Process $target_name");
                          $alarm_flag=1;
                        }
                   # close tcp connection
                   $t->close();
                }
                else
                {
                        # we have found a valid prompt
                        $t->print("bye");
                        $t->close();

                        # remove dumpfile
                        unlink($filename);
                }
        }
  else
        {

                   if (($var = ( $actualtime = time) - $firsttime) > $
+alarm_interval)
                        {
                                sendalarm( "agent server $target_name 
+is not running on $target_port",
                                "Agent-Server $target_name");
                                $alarm_flag=1;
                        }
                unlink($filename);
        }
}
[download]

thank you for all the help

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.