#! perl -slw
use strict;
use DBI;

my $dbh = DBI->connect('dbi:WMI:');

my $sth = $dbh->prepare(<<WQL);
SELECT  Caption, Name, Drive FROM  Win32_CDROMDrive
WQL

$sth->execute();
while( my @row = $sth->fetchrow ) {
    printf "Caption:  %25s Name:%30s Drive; %s\n", @row;
}

__END__
c:\test>junk
Caption:  HL-DT-ST CD-ROM GCR-8481B Name:  HL-DT-ST CD-ROM GCR-8481B Drive; R:
Caption:   LITE-ON DVDRW SOHW-1693S Name:   LITE-ON DVDRW SOHW-1693S Drive; D: