[ILUG] Perl Question.

[Martin Pegman]

Hi all,
I have a little perl script to grab IP addresses form a hostname file
and pass them
one by one to a working expect script to pull config from cisco routers etc.
If I change the system line in the script (below) and paste the single
line output
to the shell all works fine. However the perl script just disapears
with no errors.

As you can see form the script I'm new to Perl so any pointers or
better ways to do this
are appreciated.

Thanks
Martin P

#
use strict;

open (FILE, "<./hostname") or die "Can't open file: $!for reading"; 
#print ("THIS IS Before the action starts\n");
while (defined($_ = <FILE>)) {
#print "getting config from here  $_\n";
chomp $_;
system ("/root/grab\-config ", $_, " NetHop\-TFTP\-Access J65RFKJ86YT
82\.198\.129\.83 ", $_,);
sleep 3
}           

#print ("This is after the action\n ");
close (FILE);


-- 
The means by which we live have outdistanced the
ends for which we live. Our scientific power has 
outrun our spiritual power. We have guided missile
and misguided men. - Martin Luther King Jr.