Select Code to Download

my $frame1 = Tk::Frame->new;
my $frame1_btn_ok = Tk::Button->new;

my %widget_hash;
my $frame_count = 0;
...
           $widget_hash{$count}{ 'frame'}->Tk::Button->new; 
 }