my $chan = $ssh2->channel();
$chan->blocking(0);
$chan->exec('ls -la /db2home/idsldap/idsslapd-idsldap/logs/');
while (<$chan>){ print FILE }
print FILE "\n\n\n\n";
$ssh2->disconnect(); ### DISCONNECT ###

##</code><code>##

my $chan = $ssh2->channel();
$chan->blocking(0);
$chan->exec('zcat /db2home/idsldap/idsslapd-idsldap/logs/ibmslapd.log.$ibmslapd_fn-2350.gz | grep -i "entries have been successfully" ');
while (<$chan>){ print FILE }
print FILE "\n\n\n\n";
$ssh2->disconnect(); ### DISCONNECT ###