[olegteror]

#perl here
#$client - дескриптор клиента, IO::Socket
open (IN, "<transfer.dat") or die;
foreach (<IN>) { print $client $_; }
close IN;
close $client;

советую реализовать если это возможно и достаточно знаний на php