#!/usr/bin/perl 


use strict;
use warnings;


my $debug = 'val_debug' ;

print "ref(\\\$debug)=" . ref(\$debug) . "\n" ;
print "ref(\$debug)=" . ref($debug) . "\n" ;
print "\n$debug=$debug\n" ;