#!C:\Perl5.8.4\bin\perl5.8.4.exe

use CGI qw(:standard);


print header;
print start_html(-title=>"hello world", -bgcolor=>"#BOE0E6");
print end_html;


print h1("<center>Hello World!</center>");
print qq{<form name="hello" action="firstdb.cgi" method="POST" onsubmit="return newsoft();">
Employee Code&nbsp;: <input type="text" name="empcode" size="20"><br><br>

<input type="submit" value="Submit">
<input type="reset" value="reset">

};

print qq{<SCRIPT TYPE="javascript">
function newsoft()
  {	
		if(isBlank(document.hello.empcode.value)==true)
		{
		 alert("Please enter the Software");
		 document.hello.empcode.focus();	
 		 return false;
		} 
		return true;
	}	

</SCRIPT>};