Select Code to Download

@files = map { decode( 'utf8', "$dir/".$_ ) } sort @files;

my $showbutton2 = $mw->Button(
...
    -command => sub {exit} )->pack;

MainLoop();

#!/usr/bin/perl

...
    }
    return @sdirs;
}