Help for this page
perl testPicker.pl
#!/usr/bin/perl -w ... $mw->destroy; MainLoop;
$Tk::Picker::VERSION= '1.0'; ... } 1;