Help for this page
if($file <= $exp_dir_date){...
!/usr/bin/perl -w ... closedir DIR; print "\n\ndone\n";