#!/usr/bin/perluse warnings;use strict;use Symbol;my $fqref = qualify_to_ref('scalar','My::Module');$$fqref =\"Hello World\n";print My::Module::get_scalar();package My::Module;our $scalar;sub get_scalar { return $scalar;}