use strict;
use warnings;
use IO::Prompt;

my $len;
print "Bitte Laenge eingeben: ";

while ($len = <STDIN>)
  {
  chomp($len);
  last if ($len =~ m/\A[+-]?\d+\z/x);
  print "Bitte Laenge als ganze Zahl eingeben: ";
  }

print $len,"\n";

my $data = prompt("Yes oder No: ", -YESNO);

print $data, "\n";