Create a Perl script that posts to Facebook and Twitter

Hello, I need to have 2 small scripts created, one for posting on Facebook, and the other one on Twitter. The scripts can be combined, I don't mind as they won't be used as is, we will run them just for project validation and we will actually copy/paste the code to other scripts. The scripts need to contain only the bare essential code to post; I don't need parameter passing and handling/validation, fancy functions or usage description or anything to make it user friendly. I only need a straight set of functions to make it work so that it can properly and simply post to Facebook and Twitter. - All credentials are to be hardcoded at the beginning of the script - Sample facebook and twitter messages are to be hardcoded at the beginning of the scripts - All error handling is to be present - Logging is done using print STDERR and exit(1) - Code must be documented properly - We may or may not need assistance when copying your code to the other scripts