#!/usr/local/ActivePerl-5.6/bin/perl -w
#
# 
#
# 

use strict;
use warnings;
$|=1;

print "Content-type:text\n\n";

print "OK\n"

