Select Code to Download

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/');