I'm not quite sure why you insist on mimicking the broken PHP way of doing this when you can do this simply with LWP::UserAgent:
use LWP::UserAgent; use HTTP::Request; + # ... do your $XML + my $age = LWP::UserAgent->new(); $age->agent('IVR API'); + my $req = HTTP::Request->new(POST => 'http://api.voiceshot.com/ivrapi. +asp'); $req->content_type('text/xml'); $req->content($XML); + my $response = $age->request($req); + print $response->content();
/J\
In reply to Re: Perl Socket (to mimic PHP code)
by gellyfish
in thread Perl Socket (to mimic PHP code)
by inblosam
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |