Tekhne

#! /usr/local/bin/perl -w

use strict;
use File::Find;
use File::stat;

my @dirs = @ARGV;
find(\&attrib, @dirs);

sub attrib {
        my $st = stat($File::Find::name) or die "Can't stat $File::Find::name: $!";
        if ($st->mode & 0002) {
                print "$File::Find::name is world-writeable\n";
        }
}