use 5.010;
 use strict;
 use utf8::all;
 use Web::Magic

my $search = web <https://10.219.136.2/auth1.html>;
print $search;