use LWP::UserAgent;
use HTTP::Request::Common;

my $ua = LWP::UserAgent->new;
$ua->proxy(http => 'http://1.2.3.4:5678/');
my $response = $ua->request(GET 'http://my.domain/path');