Select Code to Download

#!C:\Perl
use strict;
...
        $A = $B = $null = 0; ## Reset counts for the next file
    }
}

...
my $var = ....;
my $var = sprintf ... $var;
...