Select Code to Download

#!/usr/bin/perl -w
#use strict;
...
     print redirect('http://domain.com/files/download.zip');
   }
}

#!/usr/bin/perl -w
#use strict;
...
     print $q->redirect('http://domain.com/files/download.zip');
   }
}