Select Code to Download

sub CallDialog
{
...
    }
 
}

my $button = $form->Button(  -text=>"Dialog", -command=>sub{$selected=
+$selected_1;CallDialog($testbox1);} )->pack(-side=>'right');

use strict;
use warnings;
...
    }
 
}