11 GetOptions(qw(debug h p));
13 die "usage: $0 -h <host> -p <pagerid> <message>"
14 unless defined $opt_h && defined $opt_p && @ARGV;
19 $snpp = Net::SNPP->new($opt_host);
21 $snpp->pager_id($opt_p) || die $snpp->message;
22 $snpp->content(join(" ",@ARGV)) || die $snpp->message;
23 $snpp->send() || die $snpp->message;
31 $snpp = Net::SNPP->new($opt_host);
33 $snpp->send( Pager => $opt_p,
34 Message => join(" ",@ARGV),
37 ) || die $snpp->message;