#!/usr/bin/perl -w
use strict;

BEGIN{
	use CGI qw(:standard);
	print header;
	print start_html;
	print "Please wait";
	print end_html;
}

sleep 5;