#!/usr/bin/perl -T

use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use Mail::Mailer;

our %in;
CGI::ReadParse();

# rest of script as posted