Perl: After a successful system call, “or die” command still ends script

Question

I am using the following line to make a simple system call which works:

system (\"mkdir -p Purged\") or die \"Failed to mkdir.\" ;

Executin

Answer 1

A one-line solution:

system("if printf '' > tmp.txt; then exit 1; else exit 0; fi ;") or die("unable to clobber tmp.txt");