my $dpt = $q->param('email_dpt');
  my $from = $q->param('email_dpt_from');
  my $name = $q->param('email_dtp_name');
  my $subject = $q->param('email_dpt_subject');
  my $content = $q->param('email_dpt_content');

  # set send to address based on select drop down
  # first email add is value of 0!!
  my @DEPARTMENTS = qw(
   editor@lsweb.org.uk
   webamster@lsweb.org.uk
   news@lsweb.org.uk
   ls2@lsweb.org.uk
   sport@lsweb.org.uk
   comment@lsweb.org.uk
   extra@lsweb.org.uk
	);
  my $to = $DEPARTMENTS[$dpt];
  # set up vaibles to send to the email template (email)
  my $vars = {
  		to	=> $to,
  		from	=> $from,
                name	=> $name,
                subject	=> $subject,
                content	=> $content
             };
	           
  # send an email with the details
    $mail_template->process('email/email',
	                        $vars,
	                        $to,	# to?
	                        $from,	# from?
	                        $subject)		# subject
	                        || die $mail_template->error;
  # add email to the Database

[LINE 102] LSweb::Database::Email->create({
				'to'		=> \$to,
				'from'		=> \$from,
				'name'		=> \$name,
				'subject'	=> \$subject,
				'content'	=> \$content,
				# id and datetime auto fields
				});