ANTICHAT — форум по информационной безопасности, OSINT и технологиям

SYNOPSIS
        use Win32::Clipboard;

        $CLIP = Win32::Clipboard();

        print "Clipboard contains: ", $CLIP->Get(), "\n";

        $CLIP->Set("some text to copy into the clipboard");

        $CLIP->Empty();

        $CLIP->WaitForChange();
        print "Clipboard has changed!\n";