open (FILE, ">:raw:perlio" . $att->{filename});
                           ^