package CORE::Relocatable;

sub import {
    return
        if $^O eq 'MSWin32' # or whatever check you deem necessary

    if (not $ENV{PORTABLE_XL_PERL}) {
        require FindBin;
        local $ENV{PORTABLE_XL_PERL} = 1;
        local $ENV{PERL5LIB} = '';
        local $ENV{PERLLIB} = '';
        exec("$FindBin::Bin/perl", $0, @ARGV);
    }
}

1

##</code><code>##

use CORE::Relocatable;