%cookies = fetch CGI::Cookie;
print "<br>Fetched Cookie<br>\n";
print Dumper %cookies;		# Prints nothing!!!
print "<br>Just dumped cookie hash.<br>\n";
		
if(%cookies ne undef)
{
	# We get here, so %cookies is defined
	print "Keys: ";
	foreach (keys %cookies)	# Finds no keys!!!
	{
		print;
		print " ";
	}

	print "<br>---<br>";
	if($cookies{'ID'} ne undef)
	{
		# Tried as a plain hash, hashref, with and without '->value'
		my $hashref = $cookies{'ID'};#->value;
		$username = $$hashref{'username'};
		$password = $$hashref{'password'};
		print "Username: $username<br>";
		print "Password: $password<br>";
	}
	else
	{
		# We keep ending up here!!!!
		print "Damn!<br>\n";
	}
}