#! /usr/bin/perl 
use strict;
use warnings;
print "Content-type: text/html\n\n";
print "ok";