#!/usr/bin/perl -w
###########################################
# celsius - Read TEMPer sensor temperature
# Mike Schilli, 2010 (m@perlmeister.com)
###########################################
use strict;
use local::lib;
use Device::USB::PCSensor::HidTEMPer;

my $temper = 
  Device::USB::PCSensor::HidTEMPer->new();

my $sensor = $temper->device();

if( defined $sensor->internal() ) {
  print "Temperature: ", 
    $sensor->internal()->celsius(),
    " C\n";
}