Select Code to Download

my $q = new CGI;
print $q->redirect("http://busybody.w1.com/html/2010assignment.html");

#!/usr/local/bin/perl -w

...
   print "bad password!<br>";
}   
}