use Net::CMD;
....
$n->command("MSG service12@host.tld");
$x=$n->response();