view release on metacpan or  search on metacpan

examples/ex3.pl  view on Meta::CPAN

#!/usr/bin/env perl

use strict;
use warnings;

use File::Find::Rule;
use File::Find::Rule::BOM;

# Arguments.
if (@ARGV < 1) {
        print STDERR "Usage: $0 dir\n";
        exit 1;
}
my $dir = $ARGV[0];

# Print all files with UTF-16 BOM in directory.
foreach my $file (File::Find::Rule->bom_utf16->in($dir)) {
        print "$file\n";
}

# Output like:
# Usage: qr{[\w\/]+} dir