$ perl -e 'use Tk; my $mw = tkinit; $mw->Listbox()->pack; MainLoop'