and close the connection as soon as I have the headers

#!/usr/bin/perl
use LWP::Simple; 
if (head('http://www.foo.com/')) { 
  print "Page exists and would download fine!\n";
}
[download]

In list context, head returns all kinds of interesting values such as response code, last modified, content-length etc.