Mega Code Archive
Categories
/
Perl
/
Statement
A do statement
#!/usr/local/bin/perl $count = 1; do { print ("$count\n"); $count++; } until ($count > 5);