Random perl & TDI scripts