Select Code to Download

#!/usr/bin/perl
# authtip2.pl - authenticate to change the tip of the week.
...
sub validuser {
print $query->redirect("http://localhost/tip2.pl?status=$key");
                        }

#!/usr/local/bin/perl -w
# Tip of The Week editor, generator
...

die;
}