Select Code to Download

sub putData {
    my $self = shift;
...
    # execute
    $sth->execute();
}

$mydb->putData(
        # the SQL
...
        bar => $data,
        baz => $obj->method('arg'),
    );