Perl functions generally return true on success, but system() returns the system exit status, which is inverted. Your workaround is correct. Another clean but unintuitive way is:

system("zip -rq $target $project_root") and die "couldn't exec zip: $!";

After Compline,
Zaxo