&html_start;

&do_long_opp;

....
sub html_start
{
....
print "This is gonna take a hellaofa long time<br>\n";
}