10 lines
107 B
Perl
10 lines
107 B
Perl
|
my $i = 0;
|
||
|
|
|
||
|
|
while ( $i != 10 ) {
|
||
|
|
print "current --> $i\n";
|
||
|
|
sleep(1);
|
||
|
|
|
||
|
|
$i = $i+1;
|
||
|
|
}
|
||
|
|
|
||
|
|
die "test";
|