Sure, you can use a copy, to be declared outside of the BEGIN block:

use strict;
use warnings;
use FindBin 1.51 qw( $RealBin );

my $untainted_bin;

BEGIN { ($untainted_bin) = $RealBin =~ /(.+)/; }

use lib "$untainted_bin/../lib";

use MyLib;
[download]