#!perl

# Obligate
use strict;
use warnings;

binmode STDOUT;
binmode STDOUT, ":utf8";

print "Content-Type: text/html\n\n";

my $menu = do {
    open MENU, "<menu.htm";
    local $/ = 0;
    <MENU>
};

while (my $input = <>) {
    $input =~ s/\{\{menu\}\}/$menu/ieg;
    $input =~ s/^#!(.+?)$//g;
    print $input;
}