--removed--
english
---removed---
rear extended bumpstops
####
my $xml = new XML::Simple (KeyAttr=>[]);
my $TopList = $xml->XMLin($result);
$SQL = "INSERT INTO categories (category, url) VALUES(?, ?)";
$SQLX = $dbh->prepare($SQL);
if ($TopList->{taxonomy})
{
foreach my $cat (@{$TopList->{taxonomy}->{category}})
{
$SQLX->execute($cat->{label}, $db_url);
}
$SQLX->finish();
}
##
##
foreach $var (@{$TopList->{taxonomy}->{category}})
{do something;}
else foreach $var ($TopList->[taxonomy}->{category})
{do the something this way;}