Переменные с двумя символами доллара ($$)

#!/usr/bin/perl -w
 
 
use Cwd;       
my($case, $node, $sampl, $temp);
 
 
unless ($node) {
    print"введите название каталога: ";
    chomp($node = <STDIN>);
} else { $node = $ARGV[0]; }
 
unless ($sampl) {
    print"введите последовательность символов: ";
    chomp($sampl = <STDIN>);
} else { $sampl = $ARGV[1]; }
 
unless ($case) {
    print"учитывать регистр (y/n): ";
    chomp($case = <STDIN>);
    if ($case eq 'y') { $case = 1; }
    else { $case = undef; }
}
 
unless ($ARGV[2]) {
    print"введите название результирующего файла: ";
    chomp($temp = <STDIN>);
    open RESOUT, ">$temp" || die "не могу открыть файл: $!\n"; 
} else {
    open RESOUT, ">$ARGV[2]" || die "не могу открыть файл $ARGV[2]: $!\n";
}
 
search_sampl(\$node, \$sampl, \$case);
close RESOUT;
 
sub search_sampl { 
    my($pnode, $psamp, $pcase) = @_;
    my(@files, $f_cur);
        my($ch, @result, $str);
        my($cur_dir, $path);
        
    opendir DIR, $$pnode;
        @files = readdir DIR;
    closedir DIR;
        chdir($$pnode) || die "не могу открыть каталог: $!\n";
        $cur_dir = cwd;
        foreach $f_cur (@files) {
        if (-f $f_cur) {
                    $path = $cur_dir."/".$f_cur;
            open IN, "<$f_cur" || warn "не могу открыть файл $f_cur. $!\n", redo;
                        $ch = 0;
                        while ($str = <IN>) {
                    if ($$pcase) {
                            @result = $str =~ m/$$psamp/g;
                            $ch += @result;
                        } else {
                            @result = $str =~ m/$$psamp/gi;
                            $ch += @result;
                        }
                }
                print RESOUT "$path  послед. { $$psamp } = $ch\n";
                close(IN);
            }
            if ((-d $f_cur) && !($f_cur =~ /^\.\.?$/)) {
                search_sampl(\$f_cur, $psamp, $pcase);
                chdir("$cur_dir") || warn "не могу открыть каталог $cur_dir. $!\n", redo;
            }
    }
}

sub test { $_[0] = 1000000; undef }
 
my $arg = 10;
test($arg);
print($arg);

use strict;
use File::Find ();
 
# Set the variable $File::Find::dont_use_nlink if you're using AFS,
# since AFS cheats.
 
# for the convenience of &wanted calls, including -eval statements:
use vars qw/*name *dir *prune/;
*name   = *File::Find::name;
*dir    = *File::Find::dir;
*prune  = *File::Find::prune;
 
sub wanted;
 
 
 
# Traverse desired filesystems
File::Find::find({wanted => \&wanted}, 'требуемый_каталог');
exit;
 
 
sub wanted {
    /^.*часть_имени.*\z/s
    && print("$name\n");
}