#!/usr/bin/perl
#forcount

use strict;
use warnings;

for (my $count = $0; $count < 10; $count++) {
    print "$count\n";
}