use strict;
use warnings;
use DBI;
use XML::Simple;

my $dbh = DBI->connect( ... );
my $xml = XMLin(\*DATA, keyattr => 'document');
insert($_) for @{$xml->{document}};

sub insert {
   my $hash = shift;
   my $sth = $dbh->prepare(
      'insert into bar ('
      . join(',', keys %$hash)
      . ') values ('
      . join(',',map '?',keys %$hash)
      . ')'
   );
   $sth->execute(values %$hash);
}

__DATA__
<documents>
   <document>
      <stayonhost>1</stayonhost>
      <staybelow>1</staybelow>
      <maxdepth>2</maxdepth>
      <name>Swedish Foo</name>
      <home_url>http://www.foo.se/bar/</home_url>
      <category>International</category>
   </document>
   <document>
      <stayonhost>0</stayonhost>
      <staybelow>0</staybelow>
      <maxdepth>3</maxdepth>
      <name>Swedish Bar</name>
      <home_url>http://www.bar.se/baz/</home_url>
      <category>National</category>
   </document>
</documents>