Mega Code Archive

 

Categories / Perl / Language Basics

 

Module

#!/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; }