#!/usr/bin/env perl

use strict;
use warnings;
use LWP::UserAgent;

fire_http_request_through_proxy();

sub fire_http_request_through_proxy {
    my $ua = LWP::UserAgent->new;
    local $ENV{HTTP_PROXY} = 'http://$CRAWLERA_APIKEY:@proxy.crawlera.com:8010';
    $ua->env_proxy;    # initialize from environment variables
    $ua->timeout( 20 );
    my $response = $ua->get( 'http://httpbin.org/ip' );
    delete $ENV{HTTP_PROXY};
    if ( $response->is_success ) {
        print $response->decoded_content . "\n";
    }
    else {
        die $response->status_line;
    }
}