oldmonk,
This is a violation of Facebook's terms of service.

You will not collect users' content or information, or otherwise access Facebook, using automated means (such as harvesting bots, robots, spiders, or scrapers) without our permission.

If you have obtained permission to do this and can legally extend that permission to PerlMonks at large, please do share. I am not inclined to help you otherwise (even if bothered to share your currently non-working code).