use Encode;
...
Win32::Clipboard::Set(encode('latin-1', $text));
...