... code

$| = 1; # set autoflush
print "Content-type: text/html\n\n"; 

# simulate long running computation:
for (1..3600){
    sleep 1;
    # or do some processing

    # sends a single space to browser every 10 seconds
    unless ($_ % 10){ print ' ' }
}

... more code