open (LIST, "<$listdir/$list");
	my @list = <LIST>;
close(LIST);
print &headFoot("template.html", "header");
print "Sending Message...<br>\n";
foreach my $line (@list) {
	chomp $line;
	($email, $name) = split(/\,/, $line);
	my $nameEmail = "$name <$email>";
	my $msg = MIME::Lite->new( 
		From    =>$from,
		To      =>$nameEmail,
		'Reply-To' =>$replyto,
		Subject =>$subject,
		Type    =>'text/plain',
		Data	=>$textmessage
	);
	$msg->send("smtp");
	maillog($email, "text");
	print("Sent to $name &lt\;$email&gt\;...<br>\n");
}
print "Done!";
print &headFoot($outTemp, "footer");

sub headFoot {
	my $tempFile = $_[0];
	my $request = $_[1];
	my $header;
	my $footer;
	  open (TEMP, "<$tempFile");
		    my @tempFile = <TEMP>;
	  close (TEMP);
	  my $template = join '', @tempFile;
	($header, $footer) = split(/\@\@sentlist\@\@/, $template);
	if ($request eq "header") {
		return ($header);
	} elsif ($request eq "footer") {
		return ($footer);
	}
}

sub maillog {
	my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
	open (LOG, ">>logs/maillog.dat");
	$mon++;
	$year += 1900;
	print LOG "$mday/$mon/$year $hour:$sec:$min Sent to $_[0] as $_[1]\n";
	close (LOG);
}


##</code><code>##

my $name = 'Ben Kittrell';
$name=~s/^(.+)\s(.).+$/\L$1$2/g;
my $nick = 'tha' . $name . 'sta';