#!/usr/bin/perl 
use warnings;
use strict;
my $wkDir;
$wkDir ="/D/ARCHIVE/BIOS/PRTFILES";
system("find . -mtime +20 -type d \"${wkDir}\" -exec rm -rf {} \\;");