#!/usr/bin/perl
if (scalar(@ARGV) != 2) {
        print "Usage: $0 humidity_minimum humidity_maximum\n";
        exit 3;
}
my $hum_min = shift;
my $hum_max = shift;

open(TEMP, "/usr/bin/temp |");
while(my $line = <TEMP>) {
        if ($line =~ m/Humidity.+?(\d+)/ ) {
                my $humidity = $1;
                if ($humidity < $hum_min) {
                  print "Humidity is low under $hum_min% and now $humidity%\n";
                  exit 1;
                }
                if ($humidity > $hum_max) {
                  print "Humidity is high over $hum_max% and now $humidity%\n";
                  exit 2;
                }
                print "Humidity is OK. Now at $humidity%\n";
                exit 0;
        }
}