sub write_lines_to_file {
	my $add_line_return = shift;
	my $file = shift;
	my @lines=@_;
	open(FILE, ">$file") or dienice("cannot open file : $!");
	$STDOUT_Handle = select(FILE); 
	for my $i (0 .. $#lines) {
		print "$lines[$i]";
		if ($add_line_return) {print "\n";}
	}
   	close(FILE);
	select($STDOUT_Handle);
}