use warnings;
use strict;

my $lib;
print $lib;                    # prints XXX


use lib $lib="XXX";
__END__
XXX