#!/usr/bin/perl
my $command=`find D/Archieve/Test -type d -mtime +14 -exec rm -rf {} \\;`; 
system $command;
print $command;