Select Code to Download

               $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");

   my $fh;
   open( $fh, '+<', "./test.txt" ) or die $!;
   my @contents = <$fh>;
#   print "@contents\n";
   close( $fh );

            my $dst  = $mw->getSaveFile(
            -initialdir       => $ENV{HOME},
...
                [ 'All files' => '*'    ],
            ],
            );