#! /usr/bin/perl -w

use strict;
use IO::Prompt;

while (my $x = prompt "x: ", -while => '') {}