use Dispatcher qw(RequestDispatch ReadData SendData);

        my $d = new Dispatcher({host => "192.168.1.1",port => "1440"},
                "data1",
                "data2",
                "data3");

        foreach my $type (qw(data1 data2 data3)) {
                print "RECIEVED for ",
                        $d->read()->type , "\n\n";
                #  $d->read returns a Dispatcher::Record object, which has a "type"
        }
        
        my $rec = $d->NewRecord({type=>"data4"}); # Returns a Dispatcher::Record object associated with $d
        $rec->send ("DATA"); # The Record already know what port, server, and type to use.
        $d->Port (1440);
        $rec->send("More Data on port 1440");