$smtp=Net::SMTP->new($out_server);
	$smtp->auth($username,$pwd);
	$smtp->mail($smtp_usr);
	$smtp->recipient($goto);
	$smtp->data();
	$smtp->datasend("To: $goto\n");
	$smtp->datasend("\n");
	foreach $line (@text)
	{$smtp->datasend($line);}
	$smtp->datasend("$curr_month/$curr_dom/$curr_year/$curr_hours:$curr_min:$curr_sec\n");
	$smtp->dataend();
	$smtp->quit;