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