$ perl -e 'use Tk; my $mw = tkinit; $mw->Listbox(-ipadx => 1)->pack; MainLoop'
unknown option "-ipadx" at /long/path/to/Tk/Widget.pm line 205.
 at -e line 1.

##</code><code>##

$ perl -e 'use Tk; my $mw = tkinit; $mw->Listbox(-padx => 1)->pack; MainLoop'
unknown option "-padx" at /long/path/to/Tk/Widget.pm line 205.
 at -e line 1.

##</code><code>##

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