Select Code to Download

#!/usr/bin/perl
use strict;
...
$dlgSetScales->Show();

#MainLoop();  # to exit after Dialog close

#!/usr/bin/perl
use strict;
...
                        })->pack();

MainLoop();