#!/usr/bin/env perl
use strict;
use warnings;
use File::Next;
my $nul = shift;
my $iter = File::Next::from_file( { nul_separated => $nul }, '-' );
while ( my $file = $iter->() ) {
print "$file\n";
}
#!/usr/bin/env perl
use strict;
use warnings;
use File::Next;
my $nul = shift;
my $iter = File::Next::from_file( { nul_separated => $nul }, '-' );
while ( my $file = $iter->() ) {
print "$file\n";
}