my $mw = Tk::MainWindow->new();
my $f = $mw->Frame;
my $ref = \$f;