if ( $outfile !~ m{\A(\w+)\z} )
{
    die qq{Disallowed characters in filename\n};
}

$outfile = $1;
open my $outFH, q{>}, $outfile
   or dir qq{open: $outfile: $!\n};