#!/usr/contrib/newest/bin/perl

print "Content-type: text/plain", "\n\n";

print "This is a test.";

exit(0);