opendir(DIRE, "/home/lenn287/public_html/diary");
my @files_exist = reverse sort  map { $_ =~ s/^(\d+)\.html$/$1/; $_} 
     grep { /^\w+.\.html$/} readdir DIRE;
closedir DIRE;

##</code><code>##

open my $FH,'<', '/home/lenn287/public_html/diary/'.$file_name.".html";

##</code><code>##

for($first_file; $first_file<=$last_file;$first_file++) {

##</code><code>##

for my $f ($first_file .. $last_file) {