LJ Archive

Listing 2. SendPage Subroutine using Skytel Web Site

sub SendPage {
use HTTP::Request::Common;
   require LWP::UserAgent;
my ($Message, $PIN) = @_;
$to = "$PIN,1";
$ua = new LWP::UserAgent;
$req = POST 'http://204.71.160.11/destineer/ss_paging.cgi',
   [ cmd => 'send',
     to  => $to,
     msg => $Message];
$response = $ua->request($req);
}
LJ Archive