#!/usr/local/bin/perl use strict; use warnings; my $var = 0; while($var < 10){ $var++; print $var; }