This is a great place to use IPC::Open3. It will open STDOUT, STDIN and STDERR as file handle in you script. The only problem is if what you call performs blocking. To be safe, you should use IO::Select to see if there is data to read on the handles.

Here is something I have been playing with, it is rough, but you should get the idea from it.

example:

#!/usr/bin/perl -w
#

use strict;
use POSIX;
use IPC::Open3;
use IO qw( Select Handle );
$|++;

my $host   = "host";
my $login  = "login";
my $pword  = "password";
my $logfil = "/var/log/syslog";
my $cmd    = "telnet";
my $count  = 0;
my ($infh,$outfh,$errfh);
my $pid;
my $sel = new IO::Select;
open (OUTFILE, ">deneb.log");
   OUTFILE->autoflush(1);

eval { $pid = open3($infh,$outfh,$errfh, "$cmd $host" ) };
   die $@ if $@;

$sel->add($outfh,$errfh);

while (my @ready = $sel->can_read){
    foreach my $fh (@ready) {
        my $line;
        my $len = sysread $fh, $line, 4096;
        if (not defined $len) {
            die "Error reading from child: $!\n";
        } elsif ($len == 0){
            $sel->remove($fh);
        }else {
            if ($fh == $outfh){
                if ($count == 0){
                    print "$line\n";
                    print $infh "$login\n";
                    print $infh "$pword\n";
                    print $infh "tail $logfil";
                    $count = 1;
                }elsif ($count == 1){
                    print $infh "\n";
                    $count = 2;
                }elsif ($count == 2){
                    print OUTFILE $line;
                    sleep 1;
                    $count = 3;
                    print $infh "exit\n";
                }else {exit};
           }elsif ($fh == $errfh){
               print "From STDERR: $errfh\n";
           }else {
               print "Should never be here!!\n";
           }
       }
   }
}
[download]

---

---

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.