Select Code to Download

#!/usr/bin/perl

use Tk;

#MainWindow

our $mw = MainWindow->new;

$mw->configure(-bg=>"#9AC0CD");

$mw->geometry("800x600+240+80");

$mw->resizable( 0, 0 );

$mw->title("hello");

$mw->Label(-text =>'hellov1.0',-font=>[-size=>24],-bg=>"#9AC0CD")->pac
+k();

MainLoop;