A better way is to make sure the shell doesnt even try...
perl -wMstrict -e'if( my() = 0 ) { print "Passed"; } else { print "Failed"; }'

T I M T O W T D I