All pastes #279527 Raw Edit

Untitled

public text v1 · immutable
·published 2006-12-15 02:52 UTC
rendered paste body
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();
}