use Tk;

my $top = new MainWindow;

my $frame = $top->Frame();
$frame->Label(-text=>"Can you see me?")->pack();

$top->Button(-text=>"Hide",-command=>sub{$frame->packForget()})->pack();
$top->Button(-text=>"Show",-command=>sub{$frame->pack()})->pack();

$frame->pack();

MainLoop();