print $q->header(
    -status => '302 Found',
    -uri    => 'http://localhost/',
    -cookie => [ $set_session  $set_username ],
    );
__END__