print "Content-type: text/html\n\n";
while(  /<!--#exec cgi="([^"]*)"-->/  ) {
    my $a= `$1`;
    $a =~ s/\n/<br>\n/g;
    s/<!--#exec cgi="([^"]*)"-->/$a/
}
print;