print $msg;

my $smtp = Net::SMTP::TLS-> new("X.X.X.X", Debug => 1, User => 'uuuuuu', Password=> 'ppppp') or
  die "Net::SMTP::new: $!";
$smtp-> mail($from);
$smtp-> recipient($to);
$smtp-> data();
$smtp-> datasend($msg);
$smtp-> dataend();