sub detach {
    my( $node ) = @_;
    $node->parentNode->removeChild( $node );
}

detach($node);