package Bling;
use strict qw(vars subs);
use warnings;

# simply put: use Bling; then, whenever your script accesses $$, 
# it prints 'Bling Bling!!'.

my $ref;
sub import {
	unless (defined $ref) {
		$ref = \${'main::$'};
		undef *{'main::$'};	# tramples @$ and %$. I really don't care.
		tie ${'main::$'}, 'Bling::Bling';
	}
}

sub unimport {
	if (defined $ref) {
		untie ${'main::$'};
		*{'main::$'} = $ref;
		undef $ref;
	}
}

package Bling::Bling;

sub TIESCALAR { bless [], shift; }

sub FETCH {
	local $\;
	print "Bling Bling!!\n";
	$$ref;
}
1;