#!/usr/bin/perl

use strict;
use warnings;
use utf8;
use File::Temp qw/ tempfile tempdir cleanup /;
	 
my $zwAbl = "Ümläutö Россия 中國...";

my $tmpDir = tempdir(CLEANUP => 1);
my ($clip, $tmpFile) = tempfile( DIR => $tmpDir );
binmode($clip, ":utf8");
print $clip $zwAbl;

system("winclip.exe -c -m -b $tmpFile");

close($clip);
cleanup($clip);