5 use lib "/opt/clearscm/lib";
12 SMTPHOST => 'defaria.com',
18 my $smtp = Net::SMTP->new ($config{SMTPHOST})
19 or error "Unable to connect to mail server: $config{SMTPHOST}", 1;
21 $smtp->mail ('Andrew@DeFaria.com');
23 $smtp->to ('adefaria@gmail.com');
26 $smtp->datasend ('From: Andrew@DeFaria.com');
27 $smtp->datasend ('To: adefaria@gmail.com');
28 $smtp->datasend ('Subject: Forwarded mail');
29 $smtp->datasend ('Content-Type: plain/text');
30 $smtp->datasend ("\n");
31 $smtp->datasend ($msg);
38 my $msg = ReadFile 'test.msg';