Cookie importeren in perl script

[Crazydiva]

ik heb een cookie geladen met PHP schript:

setcookie('company','uploads',time()+60*60*24*30,"/");

En haal de cookie perfect op met een perl scipt

#!/AppServ/Perl/bin/perl -w

use strict;

use CGI qwall); # I ADDED THIS LINE
my $da = new CGI;
my $company = $da->cookie('company');

print "Content-type: text/plain\n\n";

print ($company);

Nu wil ik mijn cookie in een ander script gebruiken, maar de script pakt de cookie niet.

#!/AppServ/Perl/bin/perl -w

package uu_default_config;
use strict;
use Exporter;
use CGI qwall); # I ADDED THIS LINE
my $da = new CGI;
my $company = $da->cookie('company');

@uu_default_config::ISA = qw( Exporter );
@uu_default_config::EXPORT = qw($config);

use vars qw($config);

$config = {
config_file_name => 'uu_default_config',
temp_dir => '/tmp/',
upload_dir => $ENV{'DOCUMENT_ROOT'} . '/' . $company . '/',
};

De test en het 'script wat niet wil' zitten in dezelfde map, dus zou geen probleem mogen zijn.

oja, het gaat om een upload script waar ik de upload naar map wil veranderen en variabel maken.
als ik deze regel verander
upload_dir => $ENV{'DOCUMENT_ROOT'} . '/' . $company . '/',
in
upload_dir => $ENV{'DOCUMENT_ROOT'} . '/' . 'uploads' . '/',
en deze 2 regels verwijderen
my $da = new CGI;
my $company = $da->cookie('company'); verwijder dan doet het scipt ut wel
Dan doet het upload scipt het wel

Wat doe ik fout?

ps: ik ben nog een beginneling met Perl

Configuratie:

appservev :appserv-win32-2.5.8.exe
Perl: ActivePerl-5.6.1.638-MSWin32-x86.msi