#!/usr/bin/perl

use CGI();
use MIME::Lite();

my $cgi = new CGI();
my $to = 'info@' . $ENV{HTTP_HOST};


my $message = (<<EOS);
EOS


# send an email
my $msg = MIME::Lite->new(
  From => $from,
  To => $to,
  Subject => 'Contact Form Submission',
  Data => $message
 );

$msg->send(); 

print $cgi->redirect("thankyou.html");