Select Code to Download

use LWP::UserAgent;
my $r = (LWP::UserAgent::->new)->get("https://10.28.128.138/server-sta
+tus?auto");
print $r->is_success ? "success" : $r->as_string , $/;