#!/usr/local/bin/perl use strict; use warnings; my $var = 0; until($var > 10){ print "$var\n"; $var++; }