#!/usr/bin/perl
use strict;
use warnings;
use LWP::UserAgent ();
use Time::HiRes qw[ time ];

my $ua = LWP::UserAgent->new;
$ua->timeout(1);
my $uri = "http://192.168.1.31/noexist.html";
print time . "\n";
my $response = $ua->post($uri);
print time . "\n";

if ($response->is_success) {
    print $response->decoded_content;  # or whatever
}
else {
    die $response->status_line;
}

__END__

$ perl test.pl
1534257027.70495
1534257028.72877
500 Can't connect to 192.168.1.31:80 (Connection timed out) at test.pl line 18.