#!/usr/bin/env perl
# ofentest.pl

use Umluftherd;

$herd = new Umluftherd;
$herd->klappe_oeffnen;
$herd->fuellen_mit('Teig');
$herd->klappe_schliessen;
$herd->umluft_an;
$herd->aufheizen(250);
sleep 60*60;                    # eine Stunde backen (60*60 s)
$herd->abkuehlen;
$herd->umluft_aus;