Select Code to Download

#!/usr/bin/perl

...

print $q->redirect($uri);

#!/usr/bin/perl

...
);

print $q->redirect("http://my.own.domain.com/cgi/fb.cgi?login=dummyuse
+r&msg=201");