my $source_directory = 'E:\\common\compare\latest folder\PDF\DB\\';
`dir \"$source_directory\" /b/s /o:-d`;