#!/usr/bin/perl -w
use strict;         # face it, God is strict and gives warnings 
use Create;
while(1){
    my $universe = Create->new();
    $universe->first_seven_days();
    while(1){
        last unless universe->still_has_life();
        $universe->random_cataclysm() if int(rand(10000)) == 666;
        $universe->random_miracle()   if int(rand(1000))  == 7;
    }
    print "Do you want to play again?[y/n] ";
    chomp(my $answer = <STDIN>);
    last if $answer =~ /^n/i;
}
__END__