use strict;
use warnings;
my $number=8;
no strict; # could have also used "no strict vars"
$i=0; #if i remove my keyword it gives error (not now)
for($i=0;$i<20;$i++)
use strict; # back to strict
{
print "present value of the number is:";
print $number++;
print "\n";
}
####
use strict;
no strict vars;
use warnings;
$number=8; # look MA, no MY!
$i=0; #if i remove my keyword it gives error -- not NOW!
for($i=0;$i<20;$i++) # here either
{
print "present value of the number is:";
print $number++;
print "\n";
}
##
##
#!/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";
}