sub DoClient
        {
        # client 'A'
        my $EURO       = 1.35; 
        if ( m/(\S+),(\S+),(\S+),(\S+),(\S+),(\S+)/o )
                {
                @fields        = split(/,/);
                ......
                }
        }1;