See also HTML::LinkExtractor.

And this:

while(<FO>) {
    $fc=$fc.$_;
  }
[download]

can be written better as: $fc = do { local $/; <FO> };

-- Hofmator