#!/usr/bin/perl
###########################################
# Mike Schilli, 2002 (m@perlmeister.com)
###########################################
use warnings;
use strict;

use Building;
use Log::Log4perl qw(:easy);

if($ARGV[0]) {
    Log::Log4perl->init($ARGV[0]);
}

my $plant = Building::NuclearPowerPlant->new();
my $home  = Building::Residential->new();

   # Switch TV on
$home->tv("on");
   # Overheat nuklear power plant
$plant->temperature(200);