use CGI qw(:standard);
print "content-type:text/plain\n\n";
my $query = CGI->new();

##</code><code>##

use CGI qw(:standard);
my $query = CGI->new();
print $query->header('text/plain');

##</code><code>##

# Typo?
if($Phonenumber=!/^[6-9]+\d/)

# Fixed, but...
if($Phonenumber !~ /^[6-9]+\d/)