if ( $outfile =~ m{\A(\w+)\z} )
{
    $outfile = $1;
    open my $outFH, q{>}, $outfile
       or dir qq{open: $outfile: $!\n};
}
else
{
    die qq{Disallowed characters in filename\n};
}