my $sock = new IO::Socket::INET (
PeerAddr => '192.168.1.2',
PeerPort => '8000',
Proto => 'tcp'
);
while (defined(my $line=$file->read)) {

           print TTY "$line"; #out serial
           print $sock "$line"; #out tcp

}
close($sock);