Select Code to Download

#!/usr/bin/perl
use warnings;
...
    my $action = $dispatch{ $r->name };
    $action->() if $action;
}