Shell Programming and Scripting

#!/usr/bin/perl

use strict;
use warnings;

die "usage: $0 dirs ...\n" unless (@ARGV);

while (@ARGV)
{
    curse(shift @ARGV);
}

sub curse
{
    my ($arg) = @_;

    if (-d $arg)
    {
	local *D;
	unless (opendir (D, "$arg"))
	{
	    warn "$0: could not open directory $arg: $!\n";
	    return 0;
	}
	while (my $dir = readdir D)
	{
	    next if ($dir eq "." || $dir eq "..");
	    curse("$arg/$dir");
	}
	closedir D;
	return 0;
    }

    elsif (-f _)
    {
	local *F;
	unless (open (F, $arg))
	{
	    warn "$0: could not open $arg: $!\n";
	    return 0;
	}
	my $matches = grep { /ALL -Tcb/ } <F>;
	close F;
	print "$arg\n" unless $matches;
	return ! $matches;
    }

    # else
    return 0;
}