use Tk;
use Tk::Pane;

$main_window=MainWindow->new(-title=>"Program");
$main_window->geometry("800x600");
$main_pane=$main_window->Scrolled('Pane',-scrollbars=>'osoe',-background=>"GhostWhite",-sticky=>'n',-gridded=>'y')->pack(-fill=>'both',-expand=>1);
$main_pane->Button(-text=>'EXIT',-command=>sub{exit;})->place(-x=>200,-y=>200);
MainLoop;