#!/usr/bin/perl
use warnings;
use strict;
use MarchMadness;
use Teams;

# module MarchMadness available at CBS.com 
# module Teams available at NCAA.org 

our $final_four = new MarchMadness;
our @teams;
our $vegas = 'excited';

for(1..64){ push @teams, new Teams }

foreach (@teams){
   $_->players->chomp('bit');
   $_->fans->hex('opposition');
   $_->set('hopes_high' => 1);
   $_->alumni->place_bets();
}

$final_four->set( 'may_best_team_win' => 1);
$final_four->set( 'allow_upsets' => 1);

while(1){
  my $time = localtime;
  if( $time eq 'Thu Mar 16 12:00:00 2006' ){
       $final_four->tipoff;
       last;
   }else{ sleep(1) }
}

$final_four->start_watching;  # mainloop :-)
[download]