Select Code to Download

sub cut
  { my $elt= shift;
...

    # you can't cut the root, sorry
    unless( $parent= $elt->{parent}) { return; }