Select Code to Download

sub exitstatus {
##
...
    if ($debug) { print "command: $command\n"; }
    ($_ = qx{$command 2>&1}, $? >> 8); 
}

Running: 'hostname' on admin001:
admin001
...
 09:42:51 up 333 days, 22:23,  1 user,  load average: 1.18, 0.74, 0.57
 Running: 'date -I' on on001:
2014-05-29

Useless use of right bitshift (>>) in void context at - line 437.