#!/usr/bin/perl -w

# $Id: sensors-monitor,v 1.3 2004/11/27 03:41:00 friedman Exp $

use strict;
use POSIX qw(ctime);

my $c = `tput clear`;

while (1)
  {
    printf ("%s%s\n%s", $c, ctime(time), scalar `sensors -f @ARGV`);
    sleep (60);
  }