Select Code to Download

my @values = qw(Stuff you want to pass in);
print "Some question\n";
...
} else {
    complain_that_value_sucks($file, @values);
}

my %dispatch_table = (
    A => \&do_A,
...

my $sub = $dispatch_table{$file} || \&complain_that_value_sucks;
$sub->($file, @values);