#!/usr/bin/perl use 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; }