$find   = qq(find . -name  '*.std*' -o -name 'ULOG.*' -mtime +9 -type f -exec rm {} \\;) ;
system($find);