Waiting

#!/usr/bin/perl use strict; use warnings; print "Content-type: text/html\n\n"; print < Waiting

Waiting Some more

END_OF_PAGE reopen STDOUT; reopen STDERR; system "perl sleep.pl > out "; ##

##

use strict;
use warnings;
print "going to sleep\n";
my $i = 0;
while ($i<20){
    sleep (1);
    print "zzz\n";
    $i++;
}
print "finished my beauty sleep\n";