use warnings;
use strict;

print "Tell me your Password (numbers only, max 5 chars) \n";

my $lf = <stdin>;
my $nummer = 0;
print "$nummer \n";


until ($nummer == $lf) 
{
$nummer = $nummer + 1;
print "$nummer \n";
chomp($nummer)
}
print "GOTCHA $lf !!! \n";