in reply to Perl/Tk: Dialog boxes for idiots (me)

I found the secret sauce :) Call: 
$dialog->transient(undef);

[download]
before you call Show(); Enjoy !

In Section Seekers of Perl Wisdom