Hello. After reading up on MSDN, i wrote the following little snippet that performs what you wish. Enjoy!

use strict;
use warnings;
use Win32::OLE qw(in);

my $objWMIService = Win32::OLE->GetObject("winmgmts:{impersonationLeve
+l=impersonate,(security)}//.");
die "Error" unless $objWMIService;
my $colDisks = $objWMIService->ExecQuery("Select * from Win32_DiskDriv
+e");

print "Device Caption  ->  InterfaceType  ->   DeviceId\n";
print "=" x 60 . "\n";

foreach my $obj ( in( $colDisks ) ) {
  print join("  ->  ", $obj->{Caption}, $obj->{InterfaceType} , $obj->
+{DeviceId});
  print  "\n";
}
[download]

On my machine, it produces the following:

Device Caption  ->  InterfaceType    ->   DeviceId
============================================================
WDC WD400BB-00CLB0  ->  IDE  ->  \\.\PHYSICALDRIVE0
WDC WD800JB-00JJA0  ->  IDE  ->  \\.\PHYSICALDRIVE1
[download]

Update: minor edit.