#!perl -p <>