#!/usr/bin/perl
use Linux::hddtemp;

my $hdt = Linux::hddtemp->new(
host => '10.30.40.200',
port => 7634,
separator => '|',
);

my $hashref = $hdt->get();
foreach (keys %hashref) { print $_ . "\n"; }

#print $hdt->{}{temp};
#my $hashref = $hdt->get();
#foreach (keys %$hashref) { print $hashref{$_}; }

#print $hashref->{/dev/hdc}{name} . ": " . $hashref->{/dev/hdc}{temp};
#print Linux::hddtemp->new()->get()->{/dev/hda}{temp};