perl -Mopen=:std,IO,:bytes ....