Help for this page

Select Code to Download


  1. or download this
    
#!/usr/bin/perl -w
...
}

print "After loop: \$a=$a\n";
  2. or download this
    sub myLoop( 1 )
{
...
}

print "After loop: \$a=5\n";