use File::Find::Rule::Permissions;
my $user = @ARGV ? $ARGV[0] : $ENV{USER};
print $_,"\n" for File::Find::Rule::Permissions->file()
 ->permissions( user => $user, isWriteable => 1)
 ->in("/");