my $prolog = << 'ENDPROLOG';