Select Code to Download

my $thumb;

sub choosethumbs {
    @selection = grep(m/.*\/$country\/.*/, @justfiles);
...
    } 
    $thumb = $mainframe->Thumbnail(-images => \@selection, -labels =>0
+, -width => '75', -height => '75', -background => 'black', -command =
+>\&openwin)->pack;
}