> if($foto) {
> open (F, ">$path/$number/$foto") || die "Cannot open $!";
> while(<$foto>) {Why use while ? $foto is one data. To write one data, I don't think it is nessary to use while unless you are try to write an array to the file handle like : print F $_ while (@array); But if you are talking about 0k... then it maybe the problem of $foto 's length is 0k.... so you may try : if (length($foto) > $MinLength) Best wishes, Smile Connie ^__^ -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
