if (my (undef,undef,$lastMod) = head($url)) {
   # success
   if (!defined $lastMod) {
      # but alas no mod time
   }
}