Help for this page
print $q->header( -cookie => [ $set_session, $set_username ] , $q->re +direct("http://localhost/"));
#!/usr/bin/perl ... ); print $q->header( -cookie => [ $set_session, $set_username ]); print $q->redirect('http://localhost/');