$smtp->mail($ARGV[1]);
$smtp->recipient(@to);
if(!$smtp->data($sal.".\r\n")){
        print STDERR "Error enviando datos (".$smtp->message.") !!!\n";
        $smtp->quit();
        exit($EX_TEMPFAIL);
}

$smtp->quit();
exit;