... $interval_mb->configure(-menu => $interval_mb->Menu(-tearoff => 0), -textvariable => \$ping_interval); map { $interval_mb->radiobutton(-label => $_, -variable => ... ['yview', $list]); $scroll->pack(-side => 'right', -fill => 'y'); $list->pack(-side => 'left', -expand => 'yes', - fill => 'both'); ... MainWindow->new; $mw->title("Web Ping"); $mw->CmdLine; ## parse -geometry and etc cmd line options. $frame1 = $mw->Frame; $frame 1-& gt;pack(side => "bottom", -anchor...