use Test::More 0.98;
use_ok('Test::HTTPStatus');
subtest http => sub {
try_it( 'http://blogs.perl.org/' );
};
subtest https => sub {
try_it( 'https://www.perl.org/' );
};
done_testing();
sub try_it {
        my $code = Test::HTTPStatus::_check_link($_[0]);
        is( $code, 200, "I can talk to $_[0]!" );
}