in reply to (1) line of sh vs (~20) lines of perl ?

find <dir> -mtime +30 -exec rm {} \;
No need for perl here let find do its job. =)

Waswas