#!/usr/bin/perl -w
use LWP::UserAgent;

#Tried this notation
$ENV{HTTPS_PROXY} = 'http://115.238.164.208:8080';

my $ua = LWP::UserAgent->new();

#Also tried this notation
#$ua->env_proxy( );
#$ua->proxy(['https'], 'http://115.238.164.208:8080');

my $req = HTTP::Request->new(GET => 'http://google.de');
my $res = $ua->request($req);

if($res->is_success)
{
    print "Proxy works fine\n";
    #print $res->decoded_content;
}
else
{
    print "Proxy dont work\n";
}