#!perl
sub SSI::one {
    print "Content-type: text/html\n\n";

    print "ok 1\n<br>";
}

SSI->one;