$ perl -e 'use Tk; MainWindow->new()->Button(-text => "?")->pack(-pady => 2); MainLoop'