#!/usr/bin/perl
print("find /D/ARCHIVE/BIOS/PRTFILES -mtime +1 -exec rm -rf {} \\");
system("find /D/ARCHIVE/BIOS/PRTFILES -mtime +1 -exec rm -rf {} \\");