Select Code to Download

The actual Dialog is shown using the Popup method. Any other options s
+upplied to Show are passed to Popup, and can be used to  position the
+ Dialog on the screen. Please read Tk::Popup for  details.

#!/usr/bin/perl
use warnings;
...

  )->pack;
MainLoop;