for f in *.htm do o="$(basename "$f" ".htm").cgi" cat $f | perl -e ' @_ = <>; $_ = join"",@_; print(<<~DDDD =~ s/{{here}}/$_/r); #!/usr/bin/env ppp

					{{here}}

~ ? DDDD ' > "$o" chmod +x "$o" done