use strict;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new;

foreach my $url (@ARGV) {
  my $request = HTTP::Request->new( GET => "$url" );
  my $response = $ua->request( $request );

  if( $response->is_success ) {
    print "link $url is ok\n"
  }

}