Select Code to Download

my $log =  `svn log http://... --xml --revision 123`;
my $test = XML::Smart->new($log);
$test->{log}->{logentry}[0]->{msg}->set_binary('FALSE');
print $test->data();