Select Code to Download

sub write_cookies{
     my ($username, $password, $regtype, $expires) = @_;
     print "Set-Cookie: reguser=$username; expires=$expires; path=/;\n
+";
     print "Set-Cookie: regpass=$password; expires=$expires; path=/;\n
+";
     print "Set-Cookie: regtype=$regtype; expires=$expires; path=/;\n"
+;
 }

write_cookies($username, $password, $regtype, calc_cookie_expires(-1))
+;