if (my $error = system("adduser","foo"))
{
     die "Trouble brewing\n";
}