my $openmode = '>';
if($outfile =~ m/\A>/xms)
{
    $openmode = '>>';
    $outfile =~ s/\A>//xms;
}
open($filehandle, $openmode, $outfile);