Shell Programming and Scripting

#!/usr/bin/perl
use strict;
use warnings;
use Net::SSH::Expect;
 
open(my $out, "log.txt") or die "Could not open log: $!\n";
 
##### Step 1, read subnet.txt
open(my $in, "<subnet.txt") or die "Could not open subnet.txt: $!\n";
while(<$in>) {
        chomp;
        
        ##### Step 2: run getzoneprof, and keep first 4 lines only
        my @getzoneprof = `getzoneprof -u Xxx -p Xxx -a $_ -o Orig`;
        @getzoneprof = @getzoneprof[0..3];
        
        ##### Find server name
        warn "Server not found for $_\n",next unless $getzoneprof[-1] =~ /dnsServers=(\S+)/;
        my $dns = $1;
        
        ##### ssh to server
        my $ssh = Net::SSH::Expect->new (
          host => $dns,
          password=> '12345',
          user => 'richsark',
          );
        
        my $login_output = $ssh->login();
        unless($login_output =~ /Last Login/) {
                warn "Login has failed. Login output was $login_output";
                next;
        }
        
        ##### run ls to look for files
        my $ls = $ssh->exec("ls /opt/rich/sark/*.jnl");
        $found='no';
        $found='yes' if $ls =~ m|/opt/rich/sark/|;
        print $out "From zone $_ containing dnsserver \"$dns\" found=$found of presense of \"jnl\" files\n";
        
        $ssh->close;
}
 
close($out);

...
my $ls = $ssh->exec("ls /opt/rich/sark/*.jnl");
        my $found='no';
        $found='yes' if $ls =~ m|/opt/rich/sark/|;
        print $out "From zone $_ containing dnsserver \"$dns\" found=$found of presense of \"jnl\" files\n";
        
        $ssh->close;

my $ssh = Net::SSH::Expect->new (
          host => $dns,
          password=> '12345',
          user => 'richsark',
          );

#!/perl
use strict;
use warnings;
#use Net::SSH::Expect;
use Expect;
#use Net;
#use SSH;