use strict;
use warnings;
use feature 'say';
use PIR;

my @dir = qw( bin js js/WATS php php/web_crawler );

say for PIR->new
           ->max_depth(0)
           ->file
           ->shebang(qr/#!.*(?:perl|php|node)\b/)
           ->all(@dir);

__END__