Has anybody gotten the following script to work? What's the trick? I downloaded SMTP.pm from the CPAN archives and put it in my NET folder inside the lib folder, but the script generates errors. I'm using MacPerl 5.1.0r2 on a Powerbook Duo 2300c. At 6:22 PM 12/17/96, John Kirkham wrote: > I hope this helps... > > sub mailStatus { > use Net::SMTP; > local ($subject,$message) = @_; > local ($mailhost) = $config{"SMTP"}; > local ($to) = $config{"adminmail"}; > $from = $config{"fromAddr"}; > > $smtp = Net::SMTP->new($mailhost); > > $smtp->mail($from); > $smtp->to($to); > > $smtp->data(); > $smtp->datasend("Subject: $subject\n\n"); > > $smtp->datasend($message); > $smtp->dataend(); > > $smtp->quit; > } > > > John Kirkham > Global-X-Change Communications Inc. > Sys. Admin./Tech. Support/ Programmer > Ottawa, Ontario, Canada > jkirkham@globalx.com > http://www.globalx.net -Dave -------------------------------------------------------------------- David Ray -- Dream Designs -- dave@dream.com -- http://www.dream.com --------------------------------------------------------------------