use strict;
use warnings;

use Tk;
use Win32::Clipboard;
use Win32::Process;
$::CLIP = Win32::Clipboard();


my $ProcessObj;

Win32::Process::Create($ProcessObj,
        'c:\Windows\system32\notepad.exe',
        "notepad",
        0,
        NORMAL_PRIORITY_CLASS,
        ".")
    || die "Can't create";

my $emptytries = 0;
my $clip;
while (1)
{
    $clip = Win32::Clipboard::GetText();
    if ($clip)
    {
        print "$clip\n\n";
        $::CLIP->Empty();
        $emptytries = 0;
        sleep(5);
    }
    else
    {
        $emptytries++;
        last if ($emptytries >= 3);
        print ".";
        sleep(1);
    }
}

$ProcessObj->Wait(INFINITE);

print "Done";

##</code><code>##


asddf

..Done