#!perl -lp s;add;def $_(x): return x+