Select Code to Download

use CGI ':all';
##    Starting Frameset Definition    
...
        ),
    end_html;
}

##    Write a message to the log area    
sub write_log {
...
        pre(join "\n", @$messages),
        end_html;
}

##    Write content to the main page area    
sub write_content {
...
        join "\n", @$html,
        end_html;
}

my $run = param("run");
if ($run eq 'log') {
...
    write_content("running...");
    write_log("foo");
}