#!/usr/bin/perl -w

use strict;
use FileHandle;

local $| = 1;

my $subclient = "/usr/local/bin/mosquitto_sub -t automation/oven -q 2";

open(SUB, "$subclient|");

SUB->autoflush(1);

while (my $line = <SUB>) {
	system("/usr/local/bin/oven_call.sh");
}