#!/usr/bin/perl

use strict;
use warnings;
use SOAP::Lite +trace => [ fault => \&log_faults ];
use SOAP::Transport::HTTP::Client;

my $user = 'user';
my $pass = 'pass';

use SOAP::Lite +autodispatch =>
    uri   => 'http://www.soaplite.com/My/Examples',
    proxy => 'http://$user:$pass@localhost/',
      on_fault => sub { my($soap, $res) = @_;
        die ref $res ?  $res->faultdetail : $soap->transport->status, "\n";
};

sub SOAP::Transport::HTTP::Client::get_basic_credentials { 
    return $user => $pass; }

sub log_faults {
        open LOGFILE, '>', '/root/Desktop/fault.log';
        print LOGFILE $_[0] . "\n";
        close LOGFILE;
}