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

# or

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