use strict;
use Curses;
use Mold;
use vars qw ($mold);

open (FILE, ">log.log") or die $!;
open STDERR, ">&FILE" or die "Couldn't dup STDERR: $!";

$mold=Mold->spawn;

$mold->config;
$mold->play;
$mold->fungicide;
close FILE or die $!;


##</code><code>##

package Standard;
use strict;
sub spawn
{
   print $main::mold;
}