Help for this page

Select Code to Download


  1. or download this
    {
   my $foo = 99; 
   CODE: print ++$foo, "\n"; 
}
goto CODE;
  2. or download this
    for( 2,3,5,7 ) {
    my $x= my $y= $_;
...
4
8
16
  3. or download this
    sub wow {
    my $x= my $y= shift @_;
...
4
8
16