Your problem is in this code:

$exit_frame->Button(-text => "Track",
        -command => [ \&track_changes, ($listbox, $output, $report_typ
+e) ])->pack;
[download]

You are capturing the initial values of $output and $report_type, not the values as they will be later, after you have toggled the radio buttons.

A simple fix would be to hold onto references instead, like this:

$exit_frame->Button(-text => "Track",
        -command => [ \&track_changes, ($listbox, \$output, \$report_t
+ype) ])->pack;
[download]

Then in your track_changes subroutine, do:

sub track_changes {
        my ($listbox, $output_ref, $report_type_ref) = @_;
        my @files = $listbox->curselection;
        for (@files) {
                my $file = $listbox->get($_);
                print "$file\n";
        }
        print "$$output_ref\n";
        print "$$report_type_ref\n";
}
[download]