#!/usr/local/bin/perl

use SOAP::Lite;

my $soap = SOAP::Lite
    -> uri('http://ws.cdyne.com/NotifyWS/')
    -> on_action( sub { join '/', 'http://ws.cdyne.com/NotifyWS/phonenotify.asmx', $_[1] } )
    -> proxy('http://ws.cdyne.com/NotifyWS/phonenotify.asmx');

my $method = SOAP::Data->name('NotifyPhoneBasic')
    ->attr({xmlns => 'http://ws.cdyne.com/NotifyWS/'});

my @params = ( SOAP::Data->name(PhoneNumberToDial => '99999999'),
               SOAP::Data->name(TextToSay => 'Hello Test'),
               SOAP::Data->name(CallerID => '18666654386'),
               SOAP::Data->name(CallerIDname => 'Bob'),
               SOAP::Data->name(VoiceID => '0'),
               SOAP::Data->name(LicenseKey => 'key-1234-sample') );


print $soap->call($method => @params)->result;