$client = $Options{'c'};
   #
   # call in the relevant client code
   #
   require "$client.segment";
   #

##</code><code>##

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