perl вопрос

мне вот тут стало интересно можно ли какнить через перл выдрать содержимое буфера обмена--типо допустим в гуи кликнул на кнопку и в поле вставилось содержимое буфера

 

perldoc Win32::Clipboard

Code:

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";

 

ага win32 это уже модуль подключаемый --с модулями по умолчанию никак нельзя?

 

Напиши свой динамически подгружаемый Xs модуль...