use LWP::Simple;
my %categories;
my $page = get('http://www.handango.com/PlatformTopSoftware.jsp?author
+Id=93640&zsortParams=true');
while ($page =~ /
                productId=(\d+)
                ([^<]*)
                <
                /xig)
{
        $categories{$1} = $2;
        print "[$1] and [$2]\n";
}
 
foreach my $idkey (keys %categories)
{
        print "$idkey,$categories{$idkey}\n";
}