use LWP::UserAgent;
use LWP::Debug;
use SOAP::Lite on_action => sub { "$_[0]$_[1]"; };
import SOAP::Data qw(name value);

# blablabla

my $f_id = name('Field', 3469)->attr({Name => 'ID'});
my $f_title = name('Field','new_dummy')->attr({Name => 'Title'});
my $method = name('Method', [$f_id,$f_title])->attr({'ID' => '1', 'Cmd' => 'Update'});
my $batch = name('Batch',\$method);
my $updates = name('updates' => \$batch);
my $rsp = $soap->UpdateListItems(name('listName' => '{DB8F7CAD-D459-46FD-82B8-5888A55C1EC2}'), $updates);