6 find -name '*.IN[O1]' ! -path '*/skeleton/*' -exec perl -e '
11 $d =~ s/\.IN([O1])$//;
12 my $overwrite= ($1 eq 'O');
14 open F, "< $f" or die "$f $!";
15 open G, "> $g" or die "$g $!";
16 stat F or die "$f $!";
17 my $mode= (stat F)[2];
20 exists($ENV{$1}) ? $ENV{$1} : die "$1 undef at $f:$.\n"
27 chmod 0755, $g or die "$g $!";
31 rename $g, $d or die "$g $d $!";
36 die "$g $d $!" unless $!==&EEXIST;