use Tk 800;
use Tk::Dialog;
use event;
use icit_messages;

$top = new MainWindow;
$top->title("As2Con Gui"); 
my $frame = $top->Frame(qw/-width 800 -height 300 -background white/)->pack; 

create_gui();
sub create_gui {
    $menubar = $top->Menu;
    $status_menu->command(-label => "~Events",  -command => sub { event_function(\$frame) });
    $status_menu->command(-label => "M~essages",   -command => sub { messages_function(\$frame) });

....