Select Code to Download

tie $|, 'Pkg', ...;

...
*| = *foo;
$foo = 100;
print $|;  # 100!

/* in sv.h */
#define IOf_FLUSH  4
...
    }
  }
  break;