drwxrwx--- 2 www-data sftp  4096 2008-07-28 22:18 foobar

##</code><code>##

drwxrwx--- 2 www-data www-data  4096 2008-07-28 22:18 foobar

##</code><code>##

-rwxrwx--- 1 www-data www-data 27034 2008-07-28 22:32 wilma.jpg

##</code><code>##

mkdir('foobar') or die...;
my $mode = 0770; chmod $mode, 'foobar' or die...; 
chown 'www-data', 'sftp', 'foobar' or die...;

my $upload_filehandle = $query->upload($upload);
open UPLOADFILE, ">$upload_dir/$filename";
binmode UPLOADFILE;
while ( <$upload_filehandle> ) {
   print UPLOADFILE;
}
close UPLOADFILE;
$mode = 0770;   chmod $mode, "$upload_dir/$filename";

##</code><code>##

chown -1, 1003, 'foobar' or die;