my $right_frame = $main_frame -> Frame(-relief => 'sunken', -borderwidth => 1) -> pack(-side => 'left', -expand => 1, -fill => 'both');