Select Code to Download

#!/bin/sh
#... intervening code ...
export CountDataLines = `perl -e 'while(<>){/^\s*</ or $notXML++;} pri
+nt $notXML;' < $FileName`

my %gdd; Init( \%gdd)

sub Init
    #example of using a reference to a unique global dictionary
...
    my $lh = $gref -> { FH }{ LOGFILE };
    print $lh MyTimeStamp() . ": $msg\n";
}