eval { mkpath($path) };
if($@) { ... }