Select Code to Download

couldn't connect to display ":0" at usr/local/ActivePerl-5.8/lib/Tk/Ma
+inWindow.pm line 55

use Tk;
# Main Window
my $mw = new MainWindow;
...
        -command => sub { exit })
    -> pack();
MainLoop;