#! perl
    print "content-type: text/html\n\n";
    my $stdin=<STDIN>;