Select Code to Download

#!/usr/bin/env perl

...
}

say join ("\n", rpow 'ABCD');

#!/usr/bin/env perl

...
}

say join ("\n", bpow 'ABCD');