Built from the examples in the HTTP::Request and HTTP::Response docs. ****** UNTESTED ******

 require HTTP::Request;
 $request = HTTP::Request->new(GET => "http://www.example.com/" . $fil
+e_name);

 $ua = LWP::UserAgent->new;
 $response = $ua->request($request);
 if ($response->is_success) {
        print "File exists on web server\n";
    }
    else {
        print "File does not exist on web server.\n";
    }
[download]