perl script to add timestamps to files (JPG, MOV, ...)