unlikely story :)

#!/usr/bin/perl --
use strict; use warnings;
use LWP;
my $ua  = LWP::UserAgent->new;
$ua->show_progress( 1 );
$ua->proxy( [ qw{ http https } ] => q{http://127.6.6.6} );
$ua->get( q{http://example.com} );
__END__
** GET http://example.com ==> 500 Can't connect to 127.6.6.6:80 (10061
+) (2s)
[download]