#!/usr/bin/perl

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