foreach (split(/\n/,$data)) {
                    my ($fldname, $fldvalue) = (split(/\:/,$_))[0,1];
                        print "**$fldname**\t$fldvalue\n";
                        $fldinfo{$fldname} = $fldvalue;
                }