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