print FH "This is  a line\r\n";

##</code><code>##

my $crlf="\015\012";
print FH "This is a line",$crlf;