#!/usr/bin/perl -w

our ( $number, $i );
use strict;

$number=8; # NOTE the absence of my
$i=0;   # AGAIN no my used here
for($i=0;$i<20;$i++) # OR here
{
        print "present value of the number is:";
        print $number++;
        print "\n";
}