use Data::Dumper;
my $query=new CGI;
print TMP Dumper($query);
my $emailid = $query->param('accemailid');
print TMP time; # Just to check whether the file gets executed
print TMP $emailid; # TMP is a file handler of a temp file