use strict;
use warnings;
use Cwd;
my $cwd = getcwd();

#inputs#

my $dir  = "D:\\Temp";
my $fff;
my @dir = ();
my $contilog = "$cwd"."\\input.txt";

open(LOG,">",$contilog) || die "Cannot create log file ....";

opendir (DIR,$dir);
@dir=readdir(DIR);
closedir(DIR);
@dir = sort(@dir);

foreach $fff (@dir){	
    write_log("$fff");
}