#!usr/bin/perl
use strict;
use warnings;
use CGI qw(:standard);
print "content-type:text/plain\n\n";
my $query = CGI->new();
my $employee=$query->param("employee name");
print("$employee\n");

my $password = $query->param("password");
print ("$password\n");
if ($password != /^[\w\d@#\$%`~!^&*()_\-+={}[\]|\\'";:\/?.><,]{8}$/ ) 
	{
	print("please enter correct password\n");
	}
my $Phonenumber = $query->param(Phonenumber);
my@ph=split('',$Phonenumber);
my $size=@ph;
if($size==11 ){
	if($Phonenumber=!/^[6-9]+\d/)
	{
		print("Please enter valid phone number");
	}
}
my $emailid = $query->param("emailid");
print ("$emailid");