Toysrus Product Page Scraper

I need someone to write me a perl code [login to view URL] file which contain need a function call pagescrape My program will call and pass a url such as" [login to view URL]" and the fuction need to scrape that url return a hash ref for that product my $a=new toysruspage(); $b=$a->pagescrape("[login to view URL]") $hash->{'product_title'} $hash->{'product_price'} $hash->{'product_stock'} $hash->{'product_upc'} please see attached png file $hash->{'product_stock'} only 1 or 0 1 mean instock 0 mean outofstock One the actually page the "add to chart" may show other words but only assign $hash->{'product_stock'}=1 when it show "add to chart" the module I would like to limit to use LWP::UserAgent the program need to work under my environment (I will provide ssh access) Please let me know if you have problem