scratchpad programmer.perl