sub xdrencode() {
        use XDR::Encode qw(:all);
        use XDR::Decode;
        my ($args) = opaque (shift);
        my $xid = 0x123;
        my $proc = 42;
        my $vers = 4;
        my $prog = 3;
        my $rpcvers = 2;
        my $packet = call_packet ($xid, $proc, $args, $vers, $prog, $rpcvers);
        return ($packet);
}