#!/usr/bin/perl -w use strict; $|++; sub set_status { my ($status) = @_; print '"'; } print qq{Content-Type: text/html\n

Current status:

Initialising

}; sleep 2; set_status 'RUNNING'; sleep 5; set_status 'COMPLETE';