open($filehandle, (($outfile =~ s/\A>//xms) ? '>>' : '>'), $outfile);