53285 Perl script to interact w Ebay

I need a script that works with the Ebay API. I want to call the script from the command line with a Ebay Userid (and based on the Ebay ID passed in) have the script return 2 arrays (A hash would be ok too). One containing all the Ebay (Item number) products I have for sale (Both auction and store items) along with the "Title" for each particular auction (not truncated).