#!/usr/bin/perl -w
#
##
use strict;
my $Spath='/home/s0ttlen/';

opendir(H, "$Spath")|| die "Error:$!\n";
dir_search(*H,"$Spath");

sub dir_search{
     local(*ROOT)=$_[0];
     my $path=$_[1];
     my $cont;
     foreach $cont (sort readdir(ROOT)){
        next if $cont eq '.' or $cont eq '..';
        next if -l "$path$cont";
        if (-f "$path$cont"){
           &log("$path$cont") if (-T "$path$cont" || -u "$path$cont");
        }
        elsif (-d "$path$cont" && opendir(D,"$path$cont")) {
           dir_search(*D,"$path$cont");
        } 
     }
}

sub log{
     my $file=$_[0];
     my $log='/home/s0ttlen/log/slog';
     open(LOG,">>$log")|| die "Error:$!\n";
     print LOG "$file\n";
}