Shell Programming and Scripting

uname -a
SunOS testingserver 5.10 Generic_147440-19 sun4v sparc SUNW,T5440

sub sendmailto {
             $mailing_list = $_[0];
             $subject = $_[1];
             $message = $_[2];
        open (MAIL, "|uuencode /home/no54389/testing-scripts/Package_Specification_Document_TPM.doc Package_Specification_Document_TPM.doc |mailx -s \"$subject\" -r $from $mailin
g_list");
print MAIL "From: gtusgdsunix\@imcnam.ssmb.com \n";
        print MAIL "To: $mailing_list \n";
        print MAIL "Subject: $subject\n";
        print MAIL "Hi, \n";
        print MAIL "\n";
        print MAIL "This email was sent using an automated email system. Please do not reply, or forward to this email otherwise your message will not reach your intended recipients. \n";
        print MAIL "If you like to contact us pleas write to *UNIX Team. \n";
        print MAIL "\n";
        print MAIL "Regards, \n";
        print MAIL "UNIX Team \n";
        print MAIL "\n";
        print MAIL "\n";

        print MAIL "$message";
close MAIL;
}