Select Code to Download

#!/usr/bin/perl

use CGI;
...
print $q->redirect( -uri => $uri->as_string );

exit;