How to write an integer to socket

[zhao_bingfeng]

Hi, guys
In a udp socket test routine, I want to write some integers to server in network
order. But unfortunately, my server receive just chars! how can I do?
My code:
 
#! /usr/bin/perl
 
use IO::Socket;
$sock = new IO::Socket::INET (PeerAddr => '192.168.89.166',
                              PeerPort => 27000,
                              Proto    => 'udp',
                             );
die "Could not create socket with error: $!\n" unless $sock;
my $v = 3;
foreach (1 .. 3) {
    print $sock $v++;
}
close ($sock);
 
 

-----------------------------------------------
Life is a different teacher... 
It doesn't teach lessons, and then keep exams... 
It keeps the exams first and then teaches the lessons.