#!/usr/bin/perl

use strict;
use Socket;

my $line = "Hello, world!\n";
my $port = 2000;
my $protocol = getprotobyname ("tcp");
my $addr = INADDR_ANY;
my $clientaddr;
my $serveraddr = sockaddr_in($port,$addr);
socket (SERVER, PF_INET, SOCK_STREAM, $protocol) || die ("Error establishing socket to port [$port]: $!");
print "Binding to port [$port] ...\n";
bind (SERVER, $serveraddr) || die ("Can't bind:  $!");
print "Listening on port [$port] ...\n";
listen (SERVER, SOMAXCONN) || die ("Can't listen: $!");
print "Accepting client connections on port [$port] ...\n";
($clientaddr = accept (CLIENT, SERVER)) || die ("Can't accept: $!");
my ($clientport,$clientiaddr) = sockaddr_in($clientaddr);
my $client = inet_ntoa($clientiaddr);
print "Received connection from [$client:$clientport].  Saying hello ...\n";
print CLIENT "$line\n";
close (CLIENT);
close (SERVER);
print "Done.\n";

__END__

Output will look like:

  [starky@freak bin]$ ./server-test.pl 
  Binding to port [2000] ...
  Listening on port [2000] ...
  Accepting client connections on port [2000] ...
  Received connection from [127.0.0.1:55080].  Saying hello ...
  Done.
  [starky@freak bin]$