#!/usr/bin/perl
use 5.010001;

use strict;
use warnings;

use LWP::Simple qw/mirror/;
use SOAP::Simple;

my $url = "https://example.com/webservices.cfc";
my $wsdlFile = 'webservices.wsdl';
mirror( $wsdlUrl, $wsdlFile );

my $soap = SOAP::Simple->new( $wsdlFile );