{
    $Prune = $props{"Prune"} || "";
    @Prune = split(/,/, "$Prune");

    foreach $Prune (@Prune)
        {
        $OUT .= "--prune \"$Prune\"\n";
        }
}