open FILE, ">file.txt";
$record = <STDIN>;
print FILE "The is the first line\n";
print FILE "$record\n";
close FILE;