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

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