$ perl -E 'use Tk; my $mw = MainWindow::->new(); say $mw->Canvas'
Tk::Canvas=HASH(0x8003cb500)