Select Code to Download

#!/usr/bin/env perl -l

...
B message B1
A more complex message A1
B message B2

package Decoupled;

...
}

1;

Do TypeB stuff with 'message B1'
Do TypeA stuff with 'message A1'
Do TypeB stuff with 'message B2'