This thought got me thinking...

if($x1 && (warn '$x1 OK... ') && $x2) {
  print "here\n";
}
[download]

... works like one might want it to work :)

So _technically_ even this method allows for debugging.

--Brock