#! perl -w
use Win32::Clipboard;
$clip = Win32::Clipboard::new();
$clip->Empty();
$SIG {"INT"} = sub {$exit=1};
while (1){    
    last if $exit;
    next unless $clip->GetText();
    print $clip->GetText;
    print STDERR $clip->GetText;
    $clip->Empty();
}