my $status = system ("$command $arg1 $arg2 $arg3 > $outfile");
if ($status) {
    print STDERR "Error: ", $status >> 8, "\n";
}