system( "echo $filename > lines/$filename" );

##</code><code>##

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