#!perl -w

use File::Path qw(make_path remove_tree);




remove_tree('C:\Users\dns\AppData\Roaming\Microsoft\Windows\Recent', {keep_root => 1});

