短消息服務（Short message service，SMS）允許用戶向移動設備發送和接收文本消息。如果使用Perl的話，你可以用SMS來提示有趣的東西或者重要的實時事件，無論它發生在世界的什么地方。

 
如果要把諸如“工作站備份完畢”或者“阿波羅服務器磁盤空間即將耗盡”這樣的簡單消息發送給任何帶有電子郵件地址的文本消息設備，例如移動電話或者文字傳呼機，就要使用下面的腳本：

useNet::SMTP;
 
$SMTPSERVER = '';          # set to your SMTP mail server
 
die QQ!Usage: $0 FROM TO "SUBJECT" "CONTENT"/n! if (scalar(@ARGV) != 4);
 
SendMail(@ARGV);
 
sub SendMail
{
     my ($from, $to, $subject, $content) = @_;
 
     my $smtp = Net::SMTP->new($SMTPSERVER);
     if ($smtp == undef)
     {
               }
     else
     {
          $smtp->mail($from);
          $smtp->to($to);
          my $result = $smtp->data("From: $from/nTo: $to/nSubject: $subject/n/n$content/n/n");
          $smtp->quit();
 
          print "* Message not sent: data command failed on remote host $SMTPSERVER/n" if (! $result);
     }
}