sub sendmailto {
             $mailing_list = $_[0];
             $subject = $_[1];
             $message = $_[2];
             $from = "naga.rajan@gmail.com"
             $attachment = `uuencode "/home/naga/testing-scripts/Package_Specification_Document.doc" "Package_Specification_Document.doc"
        open (MAIL, "|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";
        print MAIL $attachment;
close MAIL;
}