BEGIN
{
    if ( not $ENV{'PERLIO'} )
    {
        $ENV{'PERLIO'} = ...;

        EXEC_LOOP:
        {
            exec $^X, @ARGV;

            # This should not be reached.
            warn "Couldn't fork: $!";
            sleep $sleep;
            redo;
        }
    }
}