#!/usr/bin/env perl

use strict;
use warnings;
use 5.10.0;

use App::Pieces;

my $p = App::Pieces->new();

$p->each_address(sub {
  my ($path) = @_;
  print $path . "\0";
});