wraithis

#!/usr/bin/perl

use warnings;

use strict;

use File::Slurp;

use WWW::Mechanize;

use Try::Tiny;

use WWW::Mechanize::DecodedContent;

use JSON qw(decode_json);

use utf8;

use Data::Dumper qw(Dumper);

#use Net::SSL;

$|=1;

my $m = WWW::Mechanize->new(agent => 'Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:56.0) Gecko/20100101 Firefox/56.0',cookie_jar => {}, autocheck => 0, stack_depth => 0, ssl_opts => { verify_hostname => 0 });$m->add_header('Accept' => "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8");$m->add_header('Accept-Language' => "en-US,en;q=0.5");$m->add_header('Accept-Encoding' => 'gzip, deflate');

my @url = read_file("site.txt");

for (@url){

chomp;

$m->get($_);

print $m->status(); exit;

print $m->decoded_content(); exit;

}

#       write_file( "matched.txt", {append => 1},@a ) ;

# write_file( "d.html", {binmode => ':utf8'}, $m->decoded_content());

# write_file( "d.html", {binmode => ':utf8'}, @dump);