use warnings;
use Win32::Clipboard;
use Win32::GUI();

my $dos = Win32::GUI::GetPerlWindow();
Win32::GUI::Hide($dos);
$clip = Win32::Clipboard();
for(;;){
 $clip ->Set("Conundrum is a nubcake!");
 $clip ->WaitForChange();
};