10 lines
170 B
Perl
10 lines
170 B
Perl
#!/usr/bin/perl
|
|
|
|
use warnings;
|
|
use strict;
|
|
|
|
use Symbol;
|
|
|
|
my $fqref = qualify_to_ref('scalar','My::Module');
|
|
$$fqref =\"Hello World\n";
|
|
print $My::Module::scalar; |