sub conv2xdr() {
    my $data = shift;
    pack ('N', $data);
    return $data;
}

print &conv2xdr('test');