Socket in perl,inviare dati al server

[scruty]

Socket in perl,inviare dati al server

Ciao a tutti.Premetto che sono un totale neofita del perl.
Ho fatto il seguente script che invia dei dati ad un server su una determinata porta:

#!usr/bin/perl
use IO::Socket;
my $sock = new IO::Socket::INET (
PeerHost => "127.0.0.1",
PeerPort => "3229",
Proto => "tcp",
);
print $sock "ciccio";

```quindi invio la stringa "ciccio" al server 127.0.0.1

Ora se io volessi inviare un file di testo del tipo:
pippo
pluto
ciccio
...nel quale ho SOLO una parola all'inizio,in modo da inviare varie richieste,come posso fare?