open(my $out, '>', "path/$name")