use strict;
use warnings;
use File::Find;

find(\&process, 'F:');

sub process() {
	my $f = uc($File::Find::name);
	if ( -f $f) {
		my $c = $f;
		$c =~ s/^F:/C:/;
		if (-e $c) {
			if (-s $f != -s $c) { print "unequal size: $f\n"; }
		} else { print "missing in destination: $c\n"; }
	}
}

##</code><code>##

Can't opendir(F:Users/Joel/Documents/My Music): Invalid argument at f1.pm line 6
Can't opendir(F:Users/Joel/Documents/My Pictures): Invalid argument at f1.pm line 6
Can't opendir(F:Users/Joel/Documents/My Videos): Invalid argument at f1.pm line 6

##</code><code>##

C:\Users\Joel>dir
 Volume in drive C has no label.
 Volume Serial Number is DE8B-53F2
 Directory of C:\Users\Joel
11/29/2010  01:51 PM    <DIR>          .
11/29/2010  01:51 PM    <DIR>          ..
02/07/2011  03:05 PM    <DIR>          Contacts
02/11/2011  01:11 PM    <DIR>          Desktop
02/07/2011  03:36 PM    <DIR>          Documents
02/11/2011  01:11 PM    <DIR>          Downloads
08/07/2010  02:16 AM    <DIR>          Favorites
08/07/2010  02:16 AM    <DIR>          Links
12/24/2010  07:21 PM    <DIR>          Music
02/07/2011  10:28 AM    <DIR>          Pictures
08/07/2010  02:16 AM    <DIR>          Saved Games
08/07/2010  02:16 AM    <DIR>          Searches
12/12/2009  05:08 PM                 0 Sti_Trace.log
09/07/2010  06:58 AM    <DIR>          Videos
               1 File(s)              0 bytes
              13 Dir(s)  280,595,611,648 bytes free

##</code><code>##

C:\Users\Joel>cd "my documents"
C:\Users\Joel\My Documents>dir
 Volume in drive C has no label.
 Volume Serial Number is DE8B-53F2
 Directory of C:\Users\Joel\My Documents
File Not Found
C:\Users\Joel\My Documents>