#!/usr/bin/perl -w $| = 1; print "Cache-Control: no-cache\r\nContent-Type: text/html\r\n\r\n"; print <<_XOUT_;