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

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