perl -MFile::Find::Rule -e 'unlink
find(file => mtime => 86400 * 30,in => shift)' /backup