If you are going to do it that way, you don't need Perl.
Specify dirs only (-type d)
Code:
find /D/archieve/Test -type d -ctime +14 -exec rm -rf {} \;
and I suspect you mean /D/archive/Test
If you are going to use Perl, use it as a programming lang
http://perldoc.perl.org/
and lookup opendir(), readdir(), rmdir()