#! /usr/bin/perl -w

use strict;
use IO::Prompt;

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

##</code><code>##

Use of uninitialized value in pattern match (m//) at /usr/local/share/perl/5.8.8/IO/Prompt.pm line 91.