Select Code to Download

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