use strict;

use SQL::Translator;
my $translator = SQL::Translator->new(
    add_drop_table      => 1,
    no_comments         => 0,
    show_warnings       => 1,
    quote_table_names   => 1,
    quote_field_names   => 1,
    from                => 'DBI',
    parser_args         => {
        dsn             => 'dbi:DB2:Your_Database;host=Your_Host',
        db_user         => 'user',
        db_password     => 'password',
        },
    to                  => 'SQLite',
  );
my $output = $translator->translate or die $translator->error;
print $output;