use blib;
use Win32::Clipboard;
print <<EOP;
copy "quit" to the clipboard to quit!
EOP
$C = Win32::Clipboard();
$C->Empty();
LOOP:
while ($C->Get() ne "quit") {
$whathappened = $C->WaitForChange(10000);
if(not defined $whathappened) {
die "error in WaitForChange: $^E\n";
last LOOP;
} elsif($whathappened == 1) {
print "got a change!\n\n";
print join("\n", $C->Get()), "\n";
} else {
print "ten seconds passed...\n";
}
}