$input_folder	= $ARGV[0];

print "input : $input_folder \n";
@inp_files = glob("$input_folder" . "\\*.*");

foreach $inp(@inp_files)
{
	print "$inp" . "\n";
	
	@filename = split(/\\/, "$inp");
	
	$levels = scalar @filename;	
	
	my $name = $filename[$levels - 1];
	
	print "\t\t\t File Name : $name \n";
}