[me@host]$ perl -le 'print 1 if (0) or warn 3';
3 at -e line 1.
1

##</code><code>##

do { chmod($filemode, $_) if (-f $_) } or warn $!;
do { chmod($dirmode, $_)  if (-d $_) } or warn $!;