Listing 3. SendPage Subroutine for SNPP Servers

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;
}