11 lines
161 B
Perl
11 lines
161 B
Perl
#!/usr/bin/perl -w
|
|
|
|
do {
|
|
# Use integer math inside block only.
|
|
no integer;
|
|
for ($i = 0; $i < 10; $i++) {
|
|
print "$i\n";
|
|
}
|
|
}
|
|
|
|
|