open( OUT, '>>', $fil ) or die $!;

##</code><code>##

open(OUT, '>>'.$fil);