use Win32::Clipboard;

my $cb = Win32::Clipboard();
$cb->Empty();

open F, $0 or die $!;
$cb->Set( do{ local $/; <F> } );
close F;

$cb->WaitForChange();

printf "Clipboard contains:\n\n%s\n", $cb->Get();