${^WIDE_SYSTEM_CALLS}=1;
use strict;
use warnings;
use utf8;
use Win32::Clipboard;

sub dumpstring
 {
 my ($caption, $x)= @_;
 my ($outstring, $out);
 open $out, ">", \$outstring  or die;
 print "$caption: ($x) ";
 while ($x =~ /./g) {
	printf {$out} "%x ", ord($&);
	}
 return $outstring;
 }
 

my $CLIP = Win32::Clipboard();
my $x= $CLIP->Get();
print dumpstring ("ANSI contents", $x), "\n";
my @formats= $CLIP->EnumFormats();
print "Formats: @formats\n";
$x= $CLIP->GetAs (13);
print dumpstring ("GetAs Unicode contents", $x), "\n";