#!/usr/bin/perl

use strict;
use warnings;
use feature qw( say );

use Devel::MAT::Dumpfile;

my $df = Devel::MAT::Dumpfile->load( $ARGV[0] // die "Need dumpfile\n" );

my %orphans;
foreach my $sv ( $df->heap ) {
   $orphans{$sv->addr} = $sv unless $sv->inrefs;
}

foreach my $addr ( sort keys %orphans ) {
   say $orphans{$addr}->desc_addr;
}
