How do i run this script on a root ?
#test_mail.pl
use Net::SMTP;
$smtp = Net::SMTP->new(
Host => '192.168.55.173',
Debug => 1,
);
$smtp -> mail("root\@test-server.my.home");
@good = $smtp -> recipient('good_address@my.home','bad_address@my.home
+',{ SkipBad => 1, Notify => ['FAILURE']});
$smtp -> data();
$smtp -> datasend("TO: good_address@my.home\n");
$smtp -> datasend("TO: bad_address@my.home\n");
$smtp -> datasend("SUBJECT: Test e-mail from root\n");
$smtp -> datasend("\n");
$smtp -> datasend("A test message.\n");
$smtp -> dataend();
print "These addresses went: @good\n";
$smtp -> quit();