Help for this page
opendir my $d, $dir;
my @f = sort { -M $b <=> -M $a } readdir $d;
my @file_list = sort { -M $b <=> -M $a } grep -f, readdir $dir_handle;
unlink @f[-0,1] if @f > 20;
use File::Spec 'catfile'; unlink map catfile($dir, $_), @f[0,1] if @file_list > 20;
use File::Spec 'catfile'; ... unlink map catfile($dir, $_), @f[0,1] if @file_list > 20;
A photo of people (family, friends, myself, ...) A photo of my pet(s) A photo of something man-made (cars, machines, etc.) A photo of nature, space, or something else not man-made An abstract pattern Artwork, digital or photographed A solid color A digital animation Whatever my desktop environment has set for me by default I haven't seen my background in weeks, too many windows covering it!
Results (122 votes). Check out past polls.
