Select Code to Download

#!/usr/bin/perl
use warnings;
...
my $dest = param('keywords') && $REDIRECTS{param('keywords')}
    ? $REDIRECTS{param('keywords')} : $NOT_FOUND;
print redirect(-uri=>$dest,-status=>'301 Moved Permanently');