Data Acquisition
Offers minimum sampling time of 4 ms, snapshot function, single analysis and batch analysis capability, Batch Table Wizard, analysis add or
insert function, extended analysis time function, automatic data file name creation, QA/QC (statistical) functions, batch auto-stop function, user
program launcher function, pre-run program support, and OLE automation compatibility (for batch analysis, etc.).

##</code><code>##

#!/usr/bin/perl -w
use strict;
use Data::Dumper;
use OLE::Storage_Lite;
use Encode;
use String::Escape qw( backslash );

$Data::Dumper::Useqq = 0;
my $ole = OLE::Storage_Lite->new("lab.gcd");
my $oleroot = $ole->getPpsTree([1]);

my %cleanoleroot;
sub CleanHash {
    my($full, $clean) = @_;
    if(ref($full->{'Child'})) {
        $clean->{Child} = [];
        foreach(@{$full->{'Child'}}) {
            my %hash = ();
            push(@{$clean->{Child}}, \%hash);
            CleanHash($_, \%hash);
        }
    }
    $clean->{'Name'} = decode('UTF-16LE', $full->{'Name'});
    $clean->{'DataEscaped'} = backslash($full->{'Data'});
    $clean->{'Data'} = $full->{'Data'};    
}

CleanHash($oleroot,\%cleanoleroot);
print Dumper(\%cleanoleroot);