Check Website with http get request

get_Http_Response_code.pm

package My::UserAgent

use Mojo::UserAgent;
use Moo;

has _ua => (
    is => 'ro',
    lazy => 1,
    init_arg => 0,
    default => sub {
        my $ua = Mojo::UserAgent->new;
        
        $ua->on(error => sub {
            my ($ua, $err) = @_;
            die $err;
        });

        return $ua;
    }
);

sub getHttpCode {
    shift->_ua->max_redirects(3)->get(shift)->res->code;
}

1;