sub count_files
{
   my ($folder) = @_;
   
   return -1 unless -d $folder;

   my $count = 0;
   my $dir;
   if(opendir($dir, $folder))
   {
      while(my $entry = readdir($dir))
      {
         next if $entry =~ m!^\.\.?$!;
         $count++ if -f "$folder/$entry";
      }

      closedir($dir);
   }
   else { $count = -1; }

   return $count;
}

sub save_html
{
   my ($folder) = @_;

   $folder =~ s!\\!/!g;
   $folder =~ s!/$!!;

   my $count = &count_files($folder);
   die "Could not access $folder" if $count < 0;

   my $filename = sprintf("%s/%08i.html", $folder, ++$count);
   my $file;
   open($file, "> $filename") or die "Could not create $filename";
   print $file &gen_html();
   close $file;

   1;
}