perl -e 'print scalar(()=<>),"\n"' filename