one-off perl scripts galore