Select Code to Download

use strict;
use warnings;
...

if ( $action_ref->{$choice} ) { $action_ref->{$choice}->(); }
else { warn "Unknown option: '$choice';\n" }

$VAR1 = {
          'HTML' => sub { "DUMMY" },
...
          'Console' => sub { "DUMMY" },
          'PDF' => sub { "DUMMY" }
        };