- unless (-d $srcdir && -d $destdir ) {die "Error: $!";}
+ for($srcdir,$destdir) { ! -d $_ and die "Directory '$_' - $!\n" }