Select Code to Download

#!/usr/bin/perl --
## 
...
} ## end sub Main

__END__

my $last = $table->{last_selected};
$last and $last->configure( -background => 'white' );
$w->configure( -background => 'grey' );
$table->{last_selected} = $w;