sub _vs_connectivity_check {
  my $self = shift;
  
  use LWP::UserAgent;
  
  my $ua = LWP::UserAgent->new;
  
  my $req = HTTP::Request->new(POST => 'http://api.voiceshot.com/ivrapi.asp');
  $req->content_type("text/xml");
  $req->content( '<campaign action="6">');
  
  my $res = $ua->request($req);
  print $res->as_string;
  
}