Select Code to Download

my ($lastMod) = (head($url))[2];

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

my $gotHead = (my (undef,undef,$lastMod) = head($url));