print("\$variable1 = $Mylib::variable1\n"); # OK #### 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