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