#!/usr/bin/perl
#
# CPU FAN rotational speed
$cpufan = `/usr/bin/sensors | grep fan1: | awk '\{print \$2\}'`;
chomp $cpufan;
print $cpufan;