17 lines
362 B
Perl
17 lines
362 B
Perl
use strict;
|
|
use warnings;
|
|
use v5.10;
|
|
use LWP::UserAgent;
|
|
use HTTP::Request::Common;
|
|
use Data::Printer;
|
|
use File::Slurp;
|
|
|
|
my $ua = LWP::UserAgent->new();
|
|
my $request = GET 'http://192.168.2.1/Status_Conntrack.asp';
|
|
|
|
$request->authorization_basic('admin', 'dd2016#');
|
|
|
|
my $response = $ua->request($request);
|
|
|
|
write_file('tabelle.html', $response->as_string() );
|