cyberwart

#!/usr/bin/perl -w
use strict;
use MIME::Lite;

# SendTo email id
my $src_addr = $ARGV[0];
my $tgt_list = $ARGV[1];
my $msg_file = $ARGV[2];
my $dst_addr = “”;

my $msg_body = “”;

open(MSGFILE, $msg_file);
while(<MSGFILE>)
{
$msg_body = $msg_body . $_;
}
close(MSGFILE);

open(TFILE,  $tgt_list);
while (<TFILE>)
{
$dst_addr = $_;
#print localtime(time);

# create a new MIME Lite based email
my $msg = MIME::Lite->new
(
Subject => “subject here”,
From    => $src_addr,
To      => $dst_addr,
Type    => ‘text/html’,
Encoding =>’quoted-printable’,
Data    => $msg_body);
#    $msg->add(”Return-Path” => $src_addr);

#$msg->attach(Type        => ‘image/jpeg’,
#        Path        => ‘/Users/gnat/Photoshopped/nat.jpg’,
#        Filename    => ‘gnat-face.jpg’);

$msg->send();

}

close(TFILE);