Select Code to Download

use CGI;
$redir = '/cgi-bin/drall.pl?left='. $ENV{REDIRECT_REQUEST_URI};
print CGI::redirect(-uri => $redir);