#!/usr/bin/perl use strict; use Time::HiRes qw(sleep); sleep 0.5; print "Content-Type: text/html\n\n"; print < EOF