#!/usr/bin/perl -w
use LWP::UserAgent;
use strict;
use warnings;

my ( $ua,$response) = ( LWP::UserAgent->new,undef );
my $shell_file = 'web-shell.txt';

open ( my $WS, '<', $shell_file) or exit print '[!] Can\'t open web-shell file : $shell_file \n';

while( <$WS> )
{
   chomp;
   $response = $ua->get( $_ );
   printf "[STATUS] : %s [URL] : %s \n",$response->status_line=~/(\d+)/,$_;
}

close( $WS );

http://old.antichat.ru/txt/old/anonumus.shtml
http://zbrute.antichat.ru/about.html
http://old.antichat.ru/shell.php

C:\>perl -w s.pl
[STATUS] : 200 [URL] : http://old.antichat.ru/txt/old/anonumus.shtml
[STATUS] : 200 [URL] : http://zbrute.antichat.ru/about.html
[STATUS] : 500 [URL] : http://old.antichat.ru/shell.php