##
use Mylib qw( $variable1 ); # If Mylib exports $variable1
print("\$variable1 = $variable1\n"); # OK
####
our $variable1;
local *variable1 = \$Mylib::variable1; # Create an alias.
print("\$variable1 = $variable1\n"); # OK
####
use Data::Alias qw( alias );
alias my $variable1 = $Mylib::variable1; # Create an alias.
print("\$variable1 = $variable1\n"); # OK