python send UDP data on port 8000

python send UDP

#!/usr/bin/env python

from socket import *
import sys

s = socket(AF_INET, SOCK_DGRAM)
host = sys.argv[1]
port = 8000
buf = 1024
addr = (host, port)

file_name = sys.argv[2]

s.sendto(file_name, addr)

f = open(file_name, "rb")
data = f.read(buf)
while (data):
    if(s.sendto(data, addr)):
        print "sending ..."
        data = f.read(buf)
s.close()
f.close()

Perl client to listen

run it using:

perl script.pl 8000

#!/usr/bin/env perl
use strict;
use warnings;
use Socket;

die "Usage: udp.pl <port>" if (!defined($ARGV[0]));

socket(UDP, PF_INET, SOCK_DGRAM, getprotobyname("udp"));
bind(UDP, sockaddr_in($ARGV[0], INADDR_ANY));
print $_ while (<UDP>);