#!/usr/bin/perl # make output filehandle HOT $| = 1; print "Content-Type: text/html\r\n\r\n"; print "Sleeping for 10 seconds\n"; sleep 10; print "Wide Awake Now.\n";