{
   package Node;

   use strict;
   use warnings;

   use Inline C => <<'__EOI__';

      typedef struct {
         // ...
      } Node;

      Node* new_node() {
         Node* node;
         warn("new_node\n"); // DEBUG
         Newx(node, 1, Node);
         // node->... = ...;
         return node;
      }

      void DESTROY(Node* node) {
         warn("DESTROY\n"); // DEBUG
         Safefree(node);
      }

__EOI__
}

{
   use strict;
   use warnings;

   my $x = Node::new_node();
}