#!/usr/bin/perl -w
package main;
use strict;
use DBI;

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

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

$sth->execute();
while (defined (my $row = $sth->fetchrow_arrayref())) {
    my $temp = $row->[0];
    print join "\t", $temp->Name, $temp->NominalReading, $temp->CurrentReading;
    print "\n";
}