Hello! The following part of code uploads 0k.
#!/usr/bin/perl
...
if($foto) {
open (F, ">$path/$number/$foto") || die "Cannot open $!";
while(<$foto>) {
print F $_;
}
close F;
}
Where could be the problem?
Please help,
Collette.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
