#!d:\perl\bin\perl.exe -w
use strict;
use CGI qw(:all);
my $cgi = new CGI;

#Initialize phonebooks variables
my $name = param('name');
my $surename = param('surename');
my $phone = param('phone');
my $selfphone = param('selfphone');
my $address = param('address');
my $location = param('location');
my $email = param('email');

print $cgi -> header, 
start_html(-title=>"Previewing $name ${surename}! entry",						-style=>{'src'=>'../htdocs/style.css'}).
											 
 $cgi -> table ( #opening table
					tr({-align=>CENTER,-valign=>TOP},
					[	#TR
					td(['Name', 'Surename','Phone'])
					] #TR
					)
				); #Closing table
	
 $cgi->end_html;