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