but it is still not making the expected result

what is the expected result? what is the observed result?

a couple observations:

• use warnings; in addition to use strict;
• LWP::Simple can make the code a little more, well, simple ;) (at a glance, i don't see anything that requires LWP::UserAgent directly (oh, now i see the user agent string change...)

  use LWP:::Simple;
  my $res = get( $target );
  if( is_success($res) ){
   ...
  }else{
   ...
  }
  [download]

• where is check_url() called from? Seems like it should return a boolean based on the result of the check.
• where is $response_limit defined?
• can avoid some repetativeness, since the printf format is always the same:

  sub check_url {  # subroutine who check given URL
      my $target = shift;
      my $response_limit = shift;
      my $time = time;      # Start timer
      my($result, $rc, $error);
      my $res = get( $target );
      if( is_success($res) ){
            $time = sprintf "Response %d seconds", (time - $time);
            if ($response_limit && ($time >= $response_limit)) {  # note
  + bugfix of direction of inequality
               $error = "Slow response from $target\: $time seconds";
               ($rc, $result) = (-1, "SLOW");
            } else {
               ($rc, $result) = (1, "ACCESSED");
            }
      } else {                 # Error .... Site is DOWN and script send
  + e-mail to you..
            ($rc, $result, $time) = (0, "DOWN", "N/A");
            $error = "$target is DOWN." . $res;
      }
      push @errors, $error if defined $error;
      my $out_format = "| %-50.50s %-10s %-20s |\n";
      printf OUT $out_format, $target, $result, $time;
      printf     $out_format, $target, $result, $time;
      return $rc;
  }
  [download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.