Help for this page

Select Code to Download


  1. or download this
    [ 7:53:35.32] P:\test>perl -l
my $globref = \do { local *GLOB };
...
GLOB(0x224fc8)
123456789
Not a GLOB reference at - line 13.
  2. or download this
    
[ 7:56:55.39] P:\test>perl -l
...
test
123456789
1
  3. or download this
    my $globref = \ do{ local *GLOB; };