use Net::SMTP;

$mailserver="myservername";
$me="myemail@company.com";
$file=shift;
open $FILE,"$file";
while (<$FILE>) 
{
	next if /^#/;
	($user,$login,$email,$project,$files)=split " ",$_ ;
	$data="\nDear $user - $login - $email - $project \n";
	foreach $file ( split ",",$files )
	{
		$data=$data."Files : $file\n";
	}
	print $data;
	$smtp = Net::SMTP->new($mailserver);
	$smtp->mail($me);
	$smtp->to($email);
	$smtp->data();
	$smtp->datasend("From: $me\n");
	$smtp->datasend("To: $email\n");
	$smtp->datasend("Subject: Project.\n");
	$smtp->datasend("\n$data\n");
	$smtp->dataend();
	$smtp->quit;
}
close $FILE;