13 lines
195 B
Perl
Executable File
13 lines
195 B
Perl
Executable File
#!/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" ;
|