Re: using content-type for judgement

[Utilitarian]

foreach(@urls){
   my $ua = LWP::UserAgent->new();
   my $url = "$_";
   my $response = $ua->head($url); #HTTP::Response type return
   my $headers  = $response->headers(); # HTTP::Headers type return
   my $content_type =$headers->content_type(); # string
print "$content_type\n";

   if($content_type eq 'application/pdf'){
      print "File Exists:\n $_";
   }
   elsif($content_type eq 'text/html'){
      print "File Exists but requires subscription to access:\n";
   }
   elsif ($response->is_success) {{
      print "No Idea how to parse $content_type\n"";
   }
   else{
      print"No Match Found\n";
}

A definitive list of MIME types is an unrealistic goal, however you should be able to draw up a top 50 and handler applications fairly easily.