Help for this page

Select Code to Download

Select or download this

#! /usr/bin/perl -w

...
use IO::Prompt;

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

Select or download this

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