Monitoring the clipboard

[AMiSM]

I'm trying to figure out how to monitor the clipboard for changes. This is probably pretty dirty, but I don't see why it doesn't work right:

use Win32::Clipboard;
$clip = Win32::Clipboard();
while (1) {
$clip->Empty();
$text = "";
while ( $text eq "" ) {
$text = $clip->get();
}
print "$text\n";
}

 

[KevinADC]

at minimum $clip->get() should be $clip->Get()

see if that helps.

 

[AMiSM]

Duh. Brain fart. It works now. Thank you!