Help for this page

Select Code to Download

Select or download this

while (<CONFIGFILE>) {
    chomp;
...
    $a=$a+1;
}

Select or download this

my $md5 = Digest::MD5->new;

...
    #   stuff with $md5 digest methods
}