--- Win32-Clipboard-0.52\Clipboard.pm   Fri Sep 10 16:05:35 2004
+++ Win32-Clipboard-0.53-saved\Clipboard.pm    Fri Oct 14 07:01:43 2005

##</code><code>##

--- Win32-Clipboard-0.52\Clipboard.pmFri Sep 10 16:05:35 2004
+++ Win32-Clipboard-0.53-saved\Clipboard.pmFri Oct 14 07:01:43 2005

##</code><code>##

Win32-Clipboard-0.53>patch -p 1 -i 53.patch
patching file `Clipboard.pm'
patching file `Clipboard.xs'
patching file `Makefile'
Hunk #2 succeeded at 239 (offset -6 lines).
Hunk #3 FAILED at 490.
Hunk #4 FAILED at 812.
2 out of 4 hunks FAILED -- saving rejects to Makefile.rej
patching file `META.yml'
patching file `t\test.t'

##</code><code>##

...
All tests successful.
Files=1, Tests=10,  1 wallclock secs ( 0.00 cusr +  0.00 csys =  0.00 CPU)

##</code><code>##

perl -MWin32::Clipboard -wle" print $Win32::Clipboard::VERSION"
0.53

##</code><code>##

#! perl -w
use strict;
use Win32::Clipboard;

my $clip = Win32::Clipboard();
## If you use double quotes, double your backslashes \\.
## Don't use forward slashes as Exploerer won't like em.
$clip->SetFiles( 'c:\Clipboard\Win32-Clipboard-0.53\53.patch' );