Archive | Perl

Perl – Send Email via Secure Mail Server

#!/usr/bin/perl -w # Modules Needed: # apt-get install libssl-dev # perl -MCPAN -e shell # install Net::SSLeay # install IO::Socket::SSL # install Authen::SASL # install Net::SMTP::SSL use Net::SMTP::SSL; sub send_mail { my $to = $_[0]; my $subject = $_[1]; my $body = $_[2]; open(MYINPUTFILE, “<$ARGV[$0]“); # open for input my(@lines) = ; # read file […]

Continue Reading 0

Powered by recycled bites and bytes.