Select Code to Download

#!usr/bin/env perl
use warnings; use strict;
...
   base____A => sub { baseA("0000"); },
   base____B => sub { baseB("0000"); },
};