#!/usr/bin/perl
use strict;
use warnings;

open(CLIENT, ">client.txt");
print CLIENT "TEST\n";
while (my $line = <STDIN>) {
        print "$line";
        print CLIENT "$line";
}
close(CLIENT);