my $entries = {};
$lj->GetEntries($entries, undef, 'one', -1);
for my $item_id (keys %{$entries}) {
    $lj->Setprop_current_music($entries->{$item_id}, $music);
    $lj->PostEntry($entries->{$item_id});
}