Hello,
I've been trying to send a file via sockets and I quickly came up with a small server and client script:

Server:
#!c:\perl\bin\perl.exe
use strict;
use IO::Socket;

my $server = IO::Socket::INET->new(
   Listen => 5,
   LocalAddr => 'localhost',
   LocalPort => 5498,
   Proto     => 'tcp'
) or die "Can't create server socket: $!";

my $client = $server->accept;

open FILE, ">out.txt" or die "Can't open: $!";
while (<$client>) {
   print $_;
}
close FILE;


Client:
#!c:\perl\bin\perl.exe
use strict;
use IO::Socket;

my $server = IO::Socket::INET->new(
   PeerAddr => 'localhost',
   PeerPort => 5498,
   Proto    => 'tcp'
) or die "Can't create client socket: $!";

open FILE, "labsearch.txt";
while (<FILE>) {
   print $server $_;
}
close FILE;
[download]

What I would like to do now is:
-> send many files from differrent machines at varying times (sometimes two computers can send a file at the same time).
(Only one server has to listen indefenitely for one or many clients). -> get the name of the file from the client, send the file and save the file at the server with the same name.

Thanks for your time!