open( FH, ">lines/$filename );
print FH $filename;
close FH;