use Win32::AdminMisc; @drives = Win32::AdminMisc::GetDrives( DRIVE_REMOVABLE ); foreach $drive (@drives){ %Info = Win32::AdminMisc::GetVolumeInfo($drive); # print "Drive $drive label is $Info{Volume}\n"; print "Found USBDRIVE at $drive\n" if $Info{Volume} eq 'USBDRIVE'; }