Select Code to Download

--- Global.pm ---
$GLOBAL = 'Bad bad global';
sub dumbproc {
        $GLOBAL = 'Still sucks';
}

--- HideGlobals.pm ---
package HideGlobals;
...
        return $GLOBAL;
}
1;

use HideGlobals qw( &hidden_dumbproc );

print $HideGlobals::GLOBAL, "\n";

print &hidden_dumbproc, "\n";