#!/usr/bin/perl

use Locked;

new Locked 'DEBUG' => 5;	# Note missing $ sign

print $DEBUG, "\n";		# Prints 5
print is_Locked($DEBUG), "\n";  # true

Unlock $DEBUG;
print $DEBUG, "\n";		# Still 5
print is_Locked($DEBUG), "\n";  # Now false

$DEBUG = 23;			# This works
print $DEBUG, "\n";		# Prints 23
print is_Locked($DEBUG), "\n";	# Still false

Lock $DEBUG;	
print $DEBUG, "\n";		# Still 23
print is_Locked($DEBUG), "\n";	# Now true

$DEBUG = 119;			# This aborts the program

