Select Code to Download

package A;

...
    my ($self, $dbi, $arg) = @_;                                   # r
+eceive $dbi
    print "$arg\nthis_is_from_A using $dbi\n";
}