#!/usr/bin/perl -w

#!/home/eastwood/local/bin/speedy -w

use Benchmark;
my $t0 = new Benchmark;  

use CGI;
use Carp;
#use warnings;
#use strict;
my $cgi_object = new CGI;

use lib "./library";
use lib "./lib";



my $results;

eval {
	use DirtFirst::Controllers::Updates;
	$results = DirtFirst::Controllers::Updates->handler( cgi_object => $cgi_object );

};

if ($@) {
	print $cgi_object->header();
	print "$@";

}

	my $t1 = new Benchmark;
	my $td1 = timediff($t1, $t0);
	#print "<br><center><font size=2 face=arial>Run time: " . timestr($td1) . "</font></center>";