Select Code to Download

sub new {
    my $class = shift;
...
    %$self = @_; # Whatever fits - this is just and example
    return bless($self, $class);
}

my $trans = new TransactionA;