use CGI;
use strict;
use warnings;

my $q = new CGI;
my $url = $q->url(-base);
my $refer = $ENV{HTTP_REFERER};
my $maillocation = "/usr/sbin/sendmail";

my $stmail=$q->param('category');
my $tmail=$q->param('email');
my $tnmail=$q->param('password');