my $alloutput = qx(/bin/ls / 2>&1);
my $exitcode = $? >> 8;