$add = "name\@isp.com\n";
$msg = "some message\n";
$end = "\cD";

system "mail $add $msg $end";

print "ok the msg was sent";