$we{all}= do { local($/)=\4;
        unpack "L", <STDIN>||die "can't" };