7 lines
133 B
Perl
7 lines
133 B
Perl
|
#!/usr/bin/perl
|
||
|
|
$num=0;
|
||
|
|
while ($num < 10){
|
||
|
|
print "$num ";
|
||
|
|
$num++;
|
||
|
|
}
|
||
|
|
print "\nOut of the loop.\n";
|