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


##</code><code>##

use Tk;
# Main Window
my $mw = new MainWindow;
my $label = $mw -> Label(-text=>"Hello World") -> pack();
my $button = $mw -> Button(-text => "Quit", 
		-command => sub { exit })
	-> pack();
MainLoop;