Here is the OK button from the popup window.

my $ok_but = $bf->Button(
                  -text => 'Continue', 
                  -width => 10,
                  -command => sub {
                   ($idx) = $list_box->curselection(); 
                   if ( defined $idx ){
                       $job = $jobs[$idx];
                       $mw->destroy();
                   } else { 
                       $mw->destroy();
                   }  
                   )->pack(-side => 'bottom',
                           -padx => 10,
                           -pady => 5);
[download]

. . . at the end of the subroutine i have

$top->Mainloop();
return $job if defined $job;
return 0;
[download]

I must be missing something very obvious or I've been looking at the code too long to see my mistake. Because it always returns 0 before I even click 'Continue'.

Thanks for the help.