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