Function Code:
sub sendmailto {
             $mailing_list = $_[0];
             $subject = $_[1];
             $message = $_[2];
             $from = "naga.rajan@gmail.com"
        open (MAIL, "|uuencode /home/naga/testing-scripts/Package_Specification_Document.doc Package_Specification_Document.doc |mailx -s \"$subject\" -r $from $mailing_list");
        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;
}