#!perl 

use DBI;
use CGI::Carp "fatalsToBrowser";
use CGI;
my $q = CGI->new();
print $q->header;
print $q->img ({ -src => "C:/Apache24/images/tree.jpeg", -align=>"CENTER"  });

print $q->start_html;

print $q->start_form( -method=>"get" , -action => "form_1.cgi" , );
print $q->div( {-align=>	'center' , }, $q->br,$q->br,$q->submit ( -value=> 'Add New Employee' , -name => 'action' ,) );
print $q->end_form;

print $q->start_form( -method=>"post" , -action => "db_connect.cgi" , );
print $q->div( {-align=>	'center' , }, $q->br,$q->br,$q->submit ( -value=> 'View All Employees' , -name => 'action' ,) );
print $q->end_form;

print $q->start_form( -method=>"get" , -action => "db_insert.cgi" , );
print $q->div( {-align=>	'center' , }, $q->br,$q->br,$q->submit ( -value=> 'Delete Employee' , -name => 'action' ,) );
print $q->end_form;


print $q->end_html;