#!/usr/bin/perl -w

$|++;

use CGI;

$q = new CGI;

print $q->header(), $q->start_html(), "before wait<br /><br/>";

sleep 5;

print "after wait\n\n\n", $q->end_html;