Select Code to Download

sub FindPicDrive {
    foreach (Win32::DriveInfo::DrivesInUse()) {
        my $tmp = $_ . ":\\Documents and Settings\\Alan\\My Documents\
+\My Pictures";
...
        }
    }
}

Checking C:\Documents and Settings\Alan\My Documents\My Pictures
Opening C:\Documents and Settings\Alan\My Documents\My Pictures
Open fail Invalid argument -- shouldn't happen -- ignoring...
...
Opening I:\Documents and Settings\Alan\My Documents\My Pictures
I:\Documents and Settings\Alan\My Documents\My Pictures 480
Pic stuff at I:\Documents and Settings\Alan\My Documents\My Pictures

Summary of my perl5 (revision 5 version 18 subversion 1) configuration
+:
   
  Platform:
...
    C:/strawberry/perl/vendor/lib
    C:/strawberry/perl/lib
    .