my $files = `/bin/ls -1tr $dir`;
my @files = grep { ! -d "$dir/$_" and ! /user.log/ } split /\n/, $files;