use Win32::Clipboard;
$CLIP = Win32::Clipboard();
$CLIP->Set("some text to copy into the clipboard");

##</code><code>##

use Win32::Clipboard;
Win32::Clipboard("some different text to copy into the clipboard");