#!/bin/perl

my $cpu=`sensors | grep "CPU Temp" | cut -f 1 -d "\("`;
my $sys=`sensors | grep "SYS Temp" | cut -f 1 -d "\("`;

$cpu =~ s/\D//g;
$cpu = $cpu/10; 
$sys =~ s/\D//g;
$sys = $sys/10; 

print "CPU/SYS ${cpu}C ${sys}C\n";