1#!/usr/bin/perl -w
2
3use strict;
4use CGI;
5use Time::HiRes qw(sleep);
6
7my $cgi = new CGI;
8my $delay = $cgi->param('delay');
9$delay = 5000 unless $delay;
10
11# flush the buffers after each print
12select (STDOUT);
13$| = 1;
14
15print "Content-Type: application/javascript\n";
16print "Expires: Thu, 01 Dec 2003 16:00:00 GMT\n";
17print "Cache-Control: no-store, no-cache, must-revalidate\n";
18print "Pragma: no-cache\n";
19print "\n";
20
21sleep $delay / 1000;
22
23
24