my $SYS_HOME = $ENV{'SYSTEM_HOME'};
my $GD_FILE = $SYS_HOME."/GD.log";
my $FH;
my @DUMP;
open ($FH, '<', $GD_FILE) || die "Cant open : $!";
while (my $line = $FH) {
	if ($line =~ /~\|(TOTAL.*)/){
		#my $tmp = $1;
		push @DUMP, $1;
			foreach (@DUMP) {
			print "$_\n";
		}
	}
}