#!/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";});