11 lines
357 B
Raku
11 lines
357 B
Raku
use HTTP::UserAgent;
|
|
|
|
my $username = 'username'; # my username
|
|
my $password = 'password'; # my password
|
|
my $address = 'http://192.168.1.1/Status_Router.asp'; # my local wireless router
|
|
|
|
my $ua = HTTP::UserAgent.new;
|
|
$ua.auth( $username, $password );
|
|
my $response = $ua.get: $address;
|
|
say $response.is-success ?? $response.content !! $response.status-line;
|