#!/usr/bin/perl
#forcount

use strict;
use warnings;

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

##</code><code>##


Argument "forcount" isn't numeric in numeric lt (<) at forcount line 5.
forcount
1
2
3
4
5
6
7
8
9