Help for this page

Select Code to Download


  1. or download this
        my $count = 1;
    while (my $x = $count) {
        print \$x, "\n";
        last if ++$count > 5;
    }
  2. or download this
        SCALAR(0x80e4aa8)
    SCALAR(0x80e4aa8)
    SCALAR(0x80e4aa8)
    SCALAR(0x80e4aa8)
    SCALAR(0x80e4aa8)