Select Code to Download

 
my $cmd = 'ps efax 2>/dev/null|grep firstbo|grep -v grep|wc -l';

...
        chop $stat;
        print "|".$stat."|";
print "After chomp: " , length($cmd);

#!/usr/bin/perl
use Net::SSH::Expect;
...
print "new stat: |" . $newstat . "|\n";
print "old stat: |" . $stat . "|\n";

0root@baseline-dc1:~# stat: |0root@baseline-dc1:~# |
new stat: |0|
old stat: |0|
before...|0|after...|0|bat@batbot:~/tests/Install_ISO$ more /tmp/STAT.
+out 
0root@baseline-dc1:~#