Select Code to Download

my %black_on_tan = (-fg=>'black',
                    -bg=>'tan',
...
my $see_list=$w->Button(-text=>'See Deleted List', %black_on_tan);

# likewise for other buttons...

my %pid;  # this should have global scope

...

    $pid{$proc} = 0;
}