% perl -w
    my $i;
    while ($i<5) {
    $i++;
    }
    <Ctrl-D>
    Use of uninitialized value at - line 2.