use strict;
use CGI qw/:standard/;
use DBI;
use Mail::Sendmail;
use MIME::Lite;

my $q = CGI::new();

my %params =  map {$_ => param('$_')} param();
print '-->' . $params{'listname'}. '<--' . "\n";