You might want to check the return value of your system call. Normal execution should not return any errors. A failure may be documented.

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