Hi
Try using use strict;
And clear all the errors that should resolve ur problem
I hope this will not work if ( cookie(host) eq $row->{host} ) {
Instead try this one  if ( %cookie->{host} eq $row->{host} ) {

Thanks
SasiKumar