+ my $cmtblock="";
+ if (open L,FILENAME) {
+ my $cmt=0;
+ while (<L>) {
+ my $cmt_old=$cmt;
+ $cmt=!$cmt if /^#!/;
+ next unless $cmt || $cmt_old; # comment
+ $cmtblock.=$_;
+ }
+ close L;
+ }
+ $cmtblock="\n" if !$cmtblock; # empty-file (->empty-dir) stub line
+ open L,">".FILENAME or die "File ".FILENAME." cannot be created: $!";
+ print L $cmtblock;