#!/usr/local/ymir/perl/bin/perl $| = 1; print "Content-Type: text/html\n\n"; for(my $i = 0; $i < 30; $i++) { print qq{ }; select(undef,undef,undef,0.5); }