列表 3：用于 SNPP 服务器的 SendPage 子例程

sub SendPage {
   use Net::SNPP;
   my ($Message, $PIN) = @_;
   my $SNPPHost = 'snpp.somedomain.com';
   my $SNPPPort = '7777';
   $snpp = Net::SNPP->new($SNPPHost);
   $snpp->pager_id($PIN);
   $snpp->content($Message);
   $snpp->send();
   $snpp->quit;
}