@perl -MWin32::Clipboard -e "undef $/;$c=Win32::Clipboard(<>);" %*

##</code><code>##

@perl -MWin32::Clipboard -e "$c=Win32::Clipboard();print $c->Get();"