If untie() figures out that there's still another reference to the value returned by tie(), it will print a untie attempted while 1 inner references still exist" warning.

But what if a new process gets spawned after the tie(), is there a way to avoid the warning? Like in

use strict;
use warnings;
use IPC::Shareable;

my $scalar;
my $foo = tie $scalar, 'IPC::Shareable', 'k123',
              { create => 1, destroy => 1 };

my $pid = fork();

if(! defined $pid) {
    die "fork err";
} elsif($pid == 0) {
    # Child
    undef $foo;
    untie $scalar;
    print "Child ends\n";
    exit 0;
} else {
    # Parent
    sleep(1);
    undef $foo;
    untie $scalar;
    print "Parent ends\n";
}
[download]

which prints

untie attempted while 1 inner references still exist at ./test.pl line 17.
Child ends
untie attempted while 1 inner references still exist at test.pl line 24.
Parent ends

Sure, no warnings would suppress the warning. Other options (besides calling tie() after the fork())?