Select Code to Download

# untested but realistic
my $dbh = DBI->connect("...",{RaiseError => 1} ) or die "can't\n";
...
       # do something even smarter with the orders data
   }
}

use DBIx::Simple;

...
        # code
    }
}

use DBIx::Simple;

...
        # code
    }
}