#!/usr/bin/perl -wT
use strict;
use CGI;

#############header############
my $q = new CGI;
print $q->header;
print $q->start_html(-title  => 'doubleserve.com web management',
                     -author => 'admin@doubleserve.com',
                     -style  => {'src' => 'style.css'},
                     -script => {'src' => 'script.js'},
                     -onload => "fade('headouter','in');fade('text','in');",
                     );
                     
#################################

print $q->div({id=>'headouter'},'');
print $q->div({id=>'text'},' &lt coming soon &gt');