4.4BSD/usr/src/contrib/perl-4.036/atarist/test/binhandl

die "Usage: binhandl files ...\n" if $#ARGV < $[;

NEXTFILE:
while ($FILEHAND = shift) {
    unless (open(FILEHAND)) {
	printf STDERR "Can't open \"$FILEHAND\"\n";
        next NEXTFILE;
    }
    if (-B FILEHAND) {
	print "\"$FILEHAND\" is binary\n";
    } else {
	print "\"$FILEHAND\" is text\n";
    }
    close(FILEHAND);
}