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