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


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