perl -MIO::Prompt -e'while(prompt){1}'