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