You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
14 lines
175 B
14 lines
175 B
#!/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";
|
|
});
|