8 lines
131 B
Perl
8 lines
131 B
Perl
|
|
||
|
|
#!/usr/local/bin/perl
|
||
|
|
$value = 0;
|
||
|
|
while ($value++ <= 5) {
|
||
|
|
print("value is now $value\n");
|
||
|
|
}
|
||
|
|
print("all done\n");
|