#! perl -slw
use strict;
use Data::Dumper;
use DBI;

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

my $sth = $dbh->prepare(<<WQL);
	SELECT * FROM Win32_SerialPort
WQL

$sth->execute();

while (my( $serial ) = $sth->fetchrow) {
	print Dumper $serial;
}