#!/usr/bin/perl

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::Publications;
	$results = DirtFirst::Controllers::Publications->handler( cgi_object => $cgi_object );

};

if ($@) {
	
	print "$@";

}

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