$dst ||= "$0.edit";  #in case user hits cancel 
               warn "dst=$dst";

         open (my $fh, '>',$dst) or die "$!\n";
         print $fh $sublable->get("1.0","end");