A do statement.
#!/usr/local/bin/perl $count = 1; do { print ("$count\n"); $count++; } until ($count > 5);