perl -e'open(O,$0);while(<O>){print}'