use IO::Socket;

sub send_mail {
	my  %value = @_ ;
	my  %res = (
		'error'   => '' ,
		'comment' => "Open Socket\n" ,
		'status'  => 0 
	) ;
	my  @work = ( 
    		[ ''                                     , '220' , 'Communication with SMTP'   ] ,
    		[ 'HELO robot<end>'                      , '250' , 'Hello Serveur'             ] ,
    		[ 'MAIL FROM: <insert:return-path><end>' , '250' , 'Insert RETURN PATH adress' ] ,
    		[ 'RCPT TO: <insert:to><end>'            , '250' , 'Insert RECIENT adress'     ] ,
    		[ 'DATA<end>'                            , '354' , 'Ask to send DATA'          ] ,
    		[ '<insert:message>'                     , '250' , 'Send DATA'                 ] ,
    		[ 'QUIT<end>'                            , '221' , 'Ask to QUIT'               ]
	);
	$|=1;
	my $result  = 0 ;
	my $reponse     ;
	my $serveur = IO::Socket::INET->new(	PeerAddr	=> $value{smtp} ,
						PeerPort 	=> '25' ,
						Proto		=> 'tcp' ,
						Type 		=> SOCK_STREAM ,
						Timeout 	=> 15 
	) or return ( 
		'error'    => "Error when open Socket -($!)-\n" ,
		'statut'   => 0 ,
		'comment'  => '' 
	);

	for (@work) {
		my @element = @$_ ;
		if ( $element[0] ne '' ) {
			$element[0] =~ s/<end>/\r\n/sgi;
			$element[0] =~ s/<insert:([^>]+?)>/$value{$1}/sgi ;
			print $serveur $element[0];	
		}
		$reponse = <$serveur>;
		if ($reponse =~ /^$element[1]/sgi) { 
			$res{'comment'}.= $element[2]."\n"; 
		} else { 
			$res{error} = "error when $element[2] -($!)- " ;
			return %res ;
		}
	}
	$res{'statut'} = 1 ;
	return %res;
}

%test = (
	'return-path' => 'automatic_traitment@your_domain.com'    ,
	'to'          => 'my_friend@his_home.com' ,
	'smtp'        => 'localhost'         ,
	'message'     => 
"To: Friend <my_friend@his_home.com>
from: Me <my_own_adress@your_domain.com>
Subject: Test on line 

TEST ON LINE 

.
"
);

send_mail ( %test ) ;