#!/usr/bin/perl -wT

use strict;
use warnings;

use CGI;

# we add the BO's and TO's to the path
use lib qw( /home/gargle/public_html/cgi/ );

# classes needed
use OO::BO::TimeBO;
use OO::TO::TimeTO;

my $page = CGI->new();

my $timeBO = TimeBO->new();
$timeBO->setDate();
my $timeTO = $timeBO->getTimeTO();

print $page->header( "text/html" ),
      $page->start_html(-title => "My first mod_perl cgi",
                        -bgcolor => "#ffffcc",
		       ),
      $page->h1( "The current day is" ),
      $page->p( $timeTO->getDate() ),
      $page->h1( "The current time is" ),
      $page->p( $timeTO->getTime() ),
      $page->end_html();