Um client que envia o conteúdo de um arquivo de texto(ou equivalente) para o server.

Client - Socket

#! /usr/bin/perl 

use IO::Socket::INET;

 $client = IO::Socket::INET->new(
 	PeerAddr=>"localhost",   # host do server o server está listening
        PeerPort  => "8081",     # porta em que 
        Timeout   => 60);	 # timeout de conexao

open (FILE,"<","testeSplit.txt");

 while(<FILE>)
  {
     my $arquivo = $_;
     #$msg = "Mensagem de teste!";
     print "\nEnviando arquivo...";

    if($client->send($arquivo))	#enviando a mensagem
     {
             print "-> Enviado com sucesso","\n";
 	sleep(2);
     }
  }