my $frame=$main->Frame->pack;
my $label=$frame->Label(-text=>'Hallo auch')->pack;