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