perl -e '$_ = 100; for(1..5){};print;'