sub makeframeset {
    # create document frameset. top area for ui
    # bottom area for XMLRPC trace
    my $self = self_url;
    print header,
        frameset({-border => "1", -rows => "1*,1*",  cols => "*"},
            frame({-name => 'main', -src => "$self?run=page"}),
            frame({-name => 'log', -src => "$self?run=log"})
        ),
    end_html;
}
sub write_log {
    open( OUT, ">>/tmp/logfile" );
    print OUT "$_<br>" for @_;
    close( OUT );
}

my $run = param("run");
if ($run eq 'log') {
    print header, '<meta http-equiv="refresh" content="10">';
    open( IN, "/tmp/logfile" );
    print <IN>;
    close(IN);
} elsif ($run eq 'page') {
        write_content('Main Area');
        write_content("<a href='self_url()'>Simulate Run</a>");
} else {
    write_content("running...");
    write_log("foo");
}