Select Code to Download

    #Create the tape removal dialog box
    my $remove_dialog = $win->DialogBox(-title=>'Choose a tape',
...
        my $test = $remove_list->get('active');
        print $test;
    }