sub xdrencode() {
    my ($args) = shift;
    my $xid = "FGMS";
    my $vers = "1.1";
    my $proc = "test";
    my $prog = "test2";
    my $xdr = XDR->call_packet($xid, $proc, $args, $vers, $prog);
    return ($xdr);
}

print &xdrencode("www");