Shell Programming and Scripting

cat  file1.txt | mailx -s 'Testing mail with # in begining without quotes' testing1@hostname,#testing2@hostname -- -f no-reply@motorola.com

$cmd="cat file1.txt";
$emailsubject ="Testing script mail # in begining with dobule quotes";
$emailaddress="#name\@hostname,name2\@hostname,name3\@hostname";
$from_address="no-reply\@hostname";
# double quotes
$cmd = $cmd . "|" ."mailx -s '$emailsubject' \"$emailaddress\" -- -f $from_address" ;
# single quotes
#$cmd = $cmd . "|" ."mailx -s '$emailsubject' \'$emailaddress\' -- -f $from_address" ;
print "Command is : $cmd\n";
if(system($cmd)){
        print "Email sent Failed\n";
}else {
        print "Email sent successfuly\n";
}

 
#!/usr/bin/perl
use MIME::Lite;
$msg = MIME::Lite->new(
        From     => 'Sender Name <sender@abc.com>',
        To       => 'recipient@abc.com,#two@abc.com',
        Subject  => 'Accepted!',
        Data     => "Hi This is the Test Message!"
);
$msg->send;