@perl -MWin32::Clipboard -0777 -e "$c=Win32::Clipboard(<>);" "%1"