perl -we'$_="test";print while <>;print "\$_:$_\n"'