# ...
  my $ret=$lwp->get('http://www.example.org/xml_data.xml');
  die unless $ret->is_success;
  my $xml=$ret->encoded_content();
  $dbh->do('INSERT INTO whin_auch_immer (xml) VALUES (?)', undef, $xml);
  # ...