#!/usr/bin/perl
use strict;

my (@data, @temps, $i);
@data = split (" ", `smartctl -A /dev/sda | grep ^194`);
push(@temps, $data[9]);

for my $i (0..7) {
    my @data = split (" ", `smartctl -A -d 3ware,$i /dev/twe0 | grep ^194`);
    push(@temps, $data[9]);
}

print join(" ", @temps) . "\n";
