##


my $mob = $q->param("mob");
$mob =~ s/[:;$%&@<>?]//gi;
#dbi logins here

print "Content-Type: text/html\n\n";
print "\n";
print $mob;
print "\n";