Select Code to Download

my $title = 'Political Animal';  # Or in your case, $q->param('title')

...

my $link = $links_to{$title};

  my %DAYS_OF_WEEK = ("0" => "Sunday",
                     "1" => "Monday",
...
                     "6" => "Saturday",
        );
  my $dayname = $DAYS_OF_WEEK($day);