A sample WWW::CheckSite application

checksite.pl

#!/usr/bin/perl

use v5.16;
use warnings;
use autodie qw( :all );
use utf8::all;
use POSIX qw( strftime );

use WWW::CheckSite;

say 'Started at: ' . scalar strftime '%Y-%m-%d %H:%M:%S', localtime;

my $uri    = 'http://www.perl.org';
my $prefix = 'perl_org';

my $wcs = WWW::CheckSite->new(
    'uri'       => $uri,
    'prefix'    => $prefix,
    'save'      => 1,
    'verbosity' => 1,
    'validate'  => 'by_none',
);

$wcs->validate;
$wcs->write_report;

say 'Ended at: ' . scalar strftime '%Y-%m-%d %H:%M:%S', localtime;