##
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")->pack();
##
##
MainLoop;