#!/usr/bin/env perl

use strict;
use warnings;
use 5.10.0;

use App::MarkFiles qw(each_path);

each_path(sub {
  my ($path) = @_;
  print $path . "\0";
});
