#!/usr/bin/perl -w
use strict;

my $count = 0;

do
{
				print "$count ";
				$count++;
}while($count < 10)