#!/usr/bin/perl
system("find /D/maestro/TestDelete -mtime +4 -exec ls -l {} \\");