sub connect_smtp { 
my $args = shift; 
my $smtp = Net::SMTP->new("localhost");
 $smtp->mail("$args->{FROM}"); 
$smtp->to($args->{ADR});
 $smtp->data();
 $smtp->datasend("Subject: $args->{TITLE}\n"); 
$smtp->datasend("To: $args->{ADR}\n"); 
$smtp->datasend("\n"); $smtp->datasend("Text");
 $smtp->dataend(); 
$smtp->quit;
 }