How about testing the keys explicitly like: (untested)

my %cookies = CGI::Cookie->fetch;
die "did not fetch any cookies into \%cookies" unless (keys %cookies);
[download]

-Blake