Sorry for the late responce--

Give the drive a Label "USBDrive" then...

use Win32::AdminMisc;
%Info = Win32::AdminMisc::GetVolume($drive);
print "Drive label is $Info{Volume}\n";
[download]

Cycle through all the attached drives and then you will be able to find the drive you are looking for.
See the doc for complete info:

http://www.roth.net/perl/adminmisc/