perl/tk Mainwindow

[Venkatesh Karnam]

I'm trying to run the following code and open a new window. But the
program finishes without opening a window. Is there something wrong in
the code?

#!/usr/local/bin/perl5 -w
use Tk;

$main = MainWindow->new();

$menubar = $main->Frame(-relief => "raised",
                        -borderwidth => 2)
                ->pack(-anchor => "nw",
                        -fill   => "x");

$file_menu = $menubar->Menubutton(-text         =>      "File",
                                  -underline    =>      1)
                        ->pack(-side    =>      "left");
$file_menu->command(-label      =>      "Print",
                        -command        =>      \&Print);


Thanks,
Venkat



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]