#!/usr/bin/perl -w

use strict;
use CGI::Carp qw(fatalsToBrowser);
use CGI;

        my $q = new CGI;

        my $url = $q->params('url');

        my $ua = LWP::UserAgent->new;
        my $request = HTTP::Request->new(GET => $url);
        my $response = $ua->request($request);


        my $string = $response->content;

        $string =~ s/\n//gi;

        if($string =~ /404 Not Found/ or $string eq ''){
            print "$url - Doesn't exist\n";
            next;
        }else{
             print "$url - Does exist\n";
             next;
                 }