c:\@Work\Perl\monks>perl -wMstrict -le
"use Tk;
 ;;
 my $mw = tkinit;
 ;;
 my $lb = $mw->Listbox->pack(-ipadx => 10);
 $lb->insert('end', $_) for 'four score and', 'seven years ago', 'our fathers';
 ;;
 MainLoop
"