use WWW;
use DOM::Tiny;
use Text::CSV;
use URI::Encode;
use HTTP::UserAgent;

my $url = 'https://www.expressvpn.com/what-is-my-ip';
say (run :out, "perl", "-e", 'use LWP::UserAgent;

my $ua = LWP::UserAgent->new(timeout => 25);
 $ua->proxy([qw/http https/] => "socks://127.0.0.1:2225");
 $ua->cookie_jar({}); print $ua->get(' ~ $url.perl ~ ')->content').out.slurp: :close