use Win32::Clipboard;

my @arr = Win32::Clipboard::EnumFormats();
print "@arr\n";

foreach my $format (@arr) {
	print "Format: $format\n";
	print Win32::Clipboard::GetAs($format);
	print "\n\n";
}