#!perl -w

	use strict;
    use Win32::Clipboard;
    my $clip = Win32::Clipboard("uppercases the clipboard content");
	for (;;) {
		$clip->WaitForChange();
		my $text = uc $clip->GetText();
		last if $text =~ /^\s*$/;
		print "$text\n";
		$clip->Set($text);
	}


__END__


=head1 NAME

ucclip.pl 

=head1 SYNOPSIS

	ucclip

=head1 DESCRIPTION

Loops waiting for change in contents of your Windows Clipboard.
Converts any string that you copy into the Clipboard to uppercase,
ready for pasting.

Also prints the converted string to the console window.

Exits when you copy a blank string into the Clipboard.

=head1 SEE ALSO

perl(1), Win32::Clipboard

=head1 AUTHOR

Rudi Farkas rudif@lecroy.com 7 Apr 2002

=cut