About Socket programming

[sasimca007]

Hello friends,
When i used the following code and run i have an error:
connect: Connection refused at sock.pl line 20.


The code is:

#!/bin/perl -w
# Example of a TCP daytime client using perl calls directly
use Socket qw(AF_INET SOCK_STREAM inet_aton sockaddr_in);
# get protocol number
$proto = getprotobyname("tcp");
print "prototype=$proto\n";
# create the generic socket
socket(SOCK, AF_INET, SOCK_STREAM, $proto) or die "socket: $!";
# no need for bind here
# get packed address for host
$addr = inet_aton("localhost");
print "addr = $addr\n";
# get port number for the daytime protocol
$port = getservbyname("daytime", "tcp");
print "port=$port\n";
# pack the address structure for connect
$paddr = sockaddr_in($port, $addr);
print "paddr = $paddr\n";
# connect to host
connect(SOCK, $paddr) or die "connect: $!";
# get and print the date
print <SOCK>;
# close the socket
close(SOCK) || die "close: $!";

So,please help me friends.

[eWish]

When you run the script do these two lines print the proper data?

print "addr = $addr\n";
print "paddr = $paddr\n";

--Kevin

[sasimca007]

When you run the script do these two lines print the proper data?

print "addr = $addr\n";
print "paddr = $paddr\n";

--Kevin

Hello friend, it is giving output like below:
addr = 

port=13

ddr = 
connect: Connection refused at sock.pl line 20.