Help for this page

Select Code to Download


  1. or download this
    open my $fh, '>', 'fred.junk'; 
    
    ...
          FILE = "(eval 18)"
          FLAGS = 0x0
          EGV = 0x3c72950   "$fh"
    
  2. or download this
    opendir my $dir, '.'; 
    
    ...
          FILE = "(eval 22)"
          FLAGS = 0x0
          EGV = 0x3c721e0   "$dir"
    
  3. or download this
    sub cmp { $_[0] <=> $_[1] };;
    
    ...
        PADLIST = 0x3c72840
        PADNAME = 0x3c72828(0x3cf7358) PAD = 0x3c72210(0x3cf7618)
        OUTSIDE = 0x36beb8 (UNIQUE)