use strict;
use Win32::Clipboard;
use Tk;


my $change_mode = \&change_mode;
my $mode = 0;
my $clip = Win32::Clipboard();

my $main = new MainWindow;
$main->Label(-text => 'Clipboard Case Changer'
             )->pack;
$main->Button(-text => 'On/Off Toggle',
              -command => $change_mode
              )->pack;
                         
MainLoop;

sub change_mode {
	$mode = !$mode;
}

#Change clipboard contents to uppercase, if $mode == 1;
while(1) {
	$clip->WaitForChange();
	my $contents = $clip->Get();
	if ($mode) {
		$clip->Set(uc($contents));
	}
}