Select Code to Download

${^WIDE_SYSTEM_CALLS}=1;
use strict;
...
print "Formats: @formats\n";
$x= $CLIP->GetAs (13);
print dumpstring ("GetAs Unicode contents", $x), "\n";