Attachment 111351 Details for Bug 25898 – Bug 25898: Prohibit indirect object notation

[patch] Bug 25898: Prohibit indirect object notation

Bug-25898-Prohibit-indirect-object-notation.patch (text/plain), 265.75 KB, created by Tomás Cohen Arazi (tcohen) on 2020-10-07 18:25:05 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Tomás Cohen Arazi (tcohen)

Created: 2020-10-07 18:25:05 UTC

Size: 265.75 KB

patch

obsolete

>From 5d7b09b400acf601bdf3eca0b4fde610f6196dc3 Mon Sep 17 00:00:00 2001
>From: Julian Maurice <julian.maurice@biblibre.com>
>Date: Mon, 29 Jun 2020 21:07:54 +0400
>Subject: [PATCH] Bug 25898: Prohibit indirect object notation
>
>Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
>---
> .perlcriticrc                                 |  2 +-
> C4/Auth.pm                                    |  2 +-
> C4/AuthoritiesMarc.pm                         |  2 +-
> C4/Breeding.pm                                |  6 ++---
> C4/Context.pm                                 |  2 +-
> C4/InstallAuth.pm                             |  4 ++--
> C4/Languages.pm                               |  2 +-
> C4/Record.pm                                  |  2 +-
> C4/SIP/Sip/Configuration.pm                   |  2 +-
> C4/SIP/t/SIPtest.pm                           |  2 +-
> C4/SIP/xmlparse.pl                            |  2 +-
> C4/Search.pm                                  | 12 +++++-----
> C4/Service.pm                                 |  8 +++----
> Koha/Illrequest/Logger.pm                     |  2 +-
> Koha/OAI/Server/DeletedRecord.pm              |  2 +-
> Koha/OAI/Server/GetRecord.pm                  |  2 +-
> Koha/OAI/Server/ListBase.pm                   |  6 ++---
> Koha/OAI/Server/ListIdentifiers.pm            |  2 +-
> Koha/OAI/Server/ListRecords.pm                |  2 +-
> Koha/OAI/Server/ListSets.pm                   |  2 +-
> Koha/OAI/Server/Record.pm                     |  2 +-
> Koha/OAI/Server/Repository.pm                 |  2 +-
> Koha/Patron/Discharge.pm                      |  2 +-
> Koha/SuggestionEngine/Plugin/ExplodedTerms.pm |  2 +-
> Koha/pdfformat/layout2pages.pm                |  2 +-
> Koha/pdfformat/layout2pagesde.pm              |  2 +-
> Koha/pdfformat/layout3pages.pm                |  4 ++--
> Koha/pdfformat/layout3pagesfr.pm              |  4 ++--
> about.pl                                      |  4 ++--
> acqui/add_user_search.pl                      |  2 +-
> acqui/addorder.pl                             |  2 +-
> acqui/addorderiso2709.pl                      |  2 +-
> acqui/ajax-getauthvaluedropbox.pl             |  2 +-
> acqui/basket.pl                               |  2 +-
> acqui/basketgroup.pl                          |  2 +-
> acqui/basketheader.pl                         |  2 +-
> acqui/cancelorder.pl                          |  2 +-
> acqui/check_budget_total.pl                   |  2 +-
> acqui/check_uniqueness.pl                     |  2 +-
> acqui/duplicate_orders.pl                     |  2 +-
> acqui/finishreceive.pl                        |  2 +-
> acqui/histsearch.pl                           |  2 +-
> acqui/invoice-files.pl                        |  2 +-
> acqui/invoice.pl                              |  2 +-
> acqui/lateorders-export.pl                    |  2 +-
> acqui/lateorders.pl                           |  2 +-
> acqui/modordernotes.pl                        |  2 +-
> acqui/neworderempty.pl                        |  2 +-
> acqui/newordersubscription.pl                 |  2 +-
> acqui/newordersuggestion.pl                   |  2 +-
> acqui/ordered.pl                              |  2 +-
> acqui/orderreceive.pl                         |  2 +-
> acqui/parcel.pl                               |  2 +-
> acqui/showorder.pl                            |  2 +-
> acqui/spent.pl                                |  2 +-
> acqui/transferorder.pl                        |  2 +-
> acqui/uncertainprice.pl                       |  2 +-
> acqui/updatesupplier.pl                       |  2 +-
> acqui/z3950_search.pl                         |  2 +-
> admin/add_user_search.pl                      |  2 +-
> admin/additional-fields.pl                    |  2 +-
> admin/admin-home.pl                           |  2 +-
> admin/adveditorshortcuts.pl                   |  2 +-
> admin/aqbudgetperiods.pl                      |  2 +-
> admin/aqbudgets.pl                            |  2 +-
> admin/aqcontract.pl                           |  2 +-
> admin/aqplan.pl                               |  2 +-
> admin/audio_alerts.pl                         |  2 +-
> admin/auth_subfields_structure.pl             |  2 +-
> admin/auth_tag_structure.pl                   |  2 +-
> admin/authorised_values.pl                    |  2 +-
> admin/authtypes.pl                            |  2 +-
> admin/biblio_framework.pl                     |  2 +-
> admin/branch_transfer_limits.pl               |  2 +-
> admin/categories.pl                           |  2 +-
> admin/check_budget_parent.pl                  |  2 +-
> admin/check_parent_total.pl                   |  2 +-
> admin/checkmarc.pl                            |  2 +-
> admin/cities.pl                               |  2 +-
> admin/classsources.pl                         |  2 +-
> admin/clone-rules.pl                          |  2 +-
> admin/columns_settings.pl                     |  2 +-
> admin/credit_types.pl                         |  2 +-
> admin/debit_types.pl                          |  2 +-
> admin/desks.pl                                |  2 +-
> admin/didyoumean.pl                           |  2 +-
> admin/import_export_framework.pl              |  2 +-
> admin/item_circulation_alerts.pl              |  2 +-
> admin/items_search_field.pl                   |  2 +-
> admin/items_search_fields.pl                  |  2 +-
> admin/itemtypes.pl                            |  2 +-
> admin/koha2marclinks.pl                       |  2 +-
> admin/library_groups.pl                       |  2 +-
> admin/localization.pl                         |  2 +-
> admin/marc_subfields_structure.pl             |  2 +-
> admin/marctagstructure.pl                     |  2 +-
> admin/matching-rules.pl                       |  2 +-
> admin/oai_set_mappings.pl                     |  2 +-
> admin/oai_sets.pl                             |  2 +-
> admin/patron-attr-types.pl                    |  2 +-
> admin/preferences.pl                          |  4 ++--
> admin/searchengine/elasticsearch/mappings.pl  |  2 +-
> admin/share_content.pl                        |  2 +-
> admin/sms_providers.pl                        |  2 +-
> admin/sru_modmapping.pl                       |  2 +-
> admin/systempreferences.pl                    |  2 +-
> admin/transport-cost-matrix.pl                |  2 +-
> admin/usage_statistics.pl                     |  2 +-
> admin/z3950servers.pl                         |  2 +-
> authorities/auth_finder.pl                    |  2 +-
> authorities/authorities-home.pl               |  2 +-
> authorities/authorities.pl                    |  2 +-
> authorities/blinddetail-biblio-search.pl      |  2 +-
> authorities/detail-biblio-search.pl           |  2 +-
> authorities/detail.pl                         |  2 +-
> authorities/export.pl                         |  2 +-
> authorities/merge.pl                          |  2 +-
> authorities/ysearch.pl                        |  2 +-
> basket/basket.pl                              |  2 +-
> basket/downloadcart.pl                        |  2 +-
> catalogue/ISBDdetail.pl                       |  2 +-
> catalogue/MARCdetail.pl                       |  2 +-
> catalogue/export.pl                           |  2 +-
> catalogue/getitem-ajax.pl                     |  2 +-
> catalogue/image.pl                            |  2 +-
> catalogue/imageviewer.pl                      |  2 +-
> catalogue/issuehistory.pl                     |  2 +-
> catalogue/item-export.pl                      |  2 +-
> catalogue/itemsearch.pl                       |  2 +-
> catalogue/labeledMARCdetail.pl                |  2 +-
> catalogue/moredetail.pl                       |  2 +-
> catalogue/search-history.pl                   |  2 +-
> catalogue/search.pl                           |  2 +-
> catalogue/showmarc.pl                         |  2 +-
> catalogue/stockrotation.pl                    |  2 +-
> catalogue/updateitem.pl                       |  2 +-
> cataloguing/addbiblio.pl                      |  2 +-
> cataloguing/addbooks.pl                       |  2 +-
> cataloguing/additem.pl                        |  4 ++--
> cataloguing/merge.pl                          |  4 ++--
> cataloguing/plugin_launcher.pl                |  2 +-
> .../value_builder/unimarc_field_210c.pl       |  2 +-
> .../value_builder/unimarc_field_4XX.pl        |  2 +-
> cataloguing/ysearch.pl                        |  2 +-
> cataloguing/z3950_auth_search.pl              |  2 +-
> cataloguing/z3950_search.pl                   |  2 +-
> changelanguage.pl                             |  2 +-
> circ/add_message.pl                           |  2 +-
> circ/article-request-slip.pl                  |  2 +-
> circ/article-requests.pl                      |  2 +-
> circ/bookcount.pl                             |  2 +-
> circ/branchoverdues.pl                        |  2 +-
> circ/branchtransfers.pl                       |  2 +-
> circ/checkout-notes.pl                        |  2 +-
> circ/circulation-home.pl                      |  2 +-
> circ/circulation.pl                           |  2 +-
> circ/del_message.pl                           |  2 +-
> circ/hold-transfer-slip.pl                    |  2 +-
> circ/offline-mf.pl                            |  2 +-
> circ/offline.pl                               |  2 +-
> circ/on-site_checkouts.pl                     |  2 +-
> circ/overdue.pl                               |  2 +-
> circ/pendingreserves.pl                       |  2 +-
> circ/renew.pl                                 |  2 +-
> circ/request-article.pl                       |  2 +-
> circ/reserveratios.pl                         |  2 +-
> circ/returns.pl                               |  2 +-
> circ/transfer-slip.pl                         |  2 +-
> circ/transferstoreceive.pl                    |  2 +-
> circ/view_holdsqueue.pl                       |  2 +-
> circ/waitingreserves.pl                       |  2 +-
> circ/ypattrodue-attr-search-authvalue.pl      |  2 +-
> circ/ysearch.pl                               |  2 +-
> clubs/club-enrollments.pl                     |  2 +-
> clubs/clubs-add-modify.pl                     |  2 +-
> clubs/clubs.pl                                |  2 +-
> clubs/patron-clubs-tab.pl                     |  2 +-
> clubs/patron-enroll.pl                        |  2 +-
> clubs/templates-add-modify.pl                 |  2 +-
> course_reserves/add_items.pl                  |  2 +-
> course_reserves/batch_add_items.pl            |  2 +-
> course_reserves/course-details.pl             |  2 +-
> course_reserves/course-reserves.pl            |  2 +-
> course_reserves/course.pl                     |  2 +-
> course_reserves/mod_course.pl                 |  2 +-
> docs/CAS/CASProxy/examples/koha_webservice.pl |  2 +-
> docs/CAS/CASProxy/examples/proxy_cas.pl       |  2 +-
> .../CASProxy/examples/proxy_cas_callback.pl   |  2 +-
> docs/CAS/CASProxy/examples/proxy_cas_data.pl  |  2 +-
> help.pl                                       |  2 +-
> installer/install.pl                          |  2 +-
> installer/onboarding.pl                       |  2 +-
> labels/label-create-csv.pl                    |  2 +-
> labels/label-create-pdf.pl                    |  2 +-
> labels/label-create-xml.pl                    |  2 +-
> labels/label-edit-batch.pl                    |  2 +-
> labels/label-edit-layout.pl                   |  2 +-
> labels/label-edit-profile.pl                  |  2 +-
> labels/label-edit-range.pl                    |  2 +-
> labels/label-edit-template.pl                 |  2 +-
> labels/label-home.pl                          |  2 +-
> labels/label-item-search.pl                   |  2 +-
> labels/label-manage.pl                        |  2 +-
> labels/label-print.pl                         |  2 +-
> labels/spinelabel-home.pl                     |  2 +-
> labels/spinelabel-print.pl                    |  2 +-
> mainpage.pl                                   |  2 +-
> members/accountline-details.pl                |  2 +-
> members/apikeys.pl                            |  2 +-
> members/boraccount.pl                         |  2 +-
> members/deletemem.pl                          |  2 +-
> members/discharge.pl                          |  2 +-
> members/discharges.pl                         |  2 +-
> members/guarantor_search.pl                   |  2 +-
> members/ill-requests.pl                       |  2 +-
> members/mancredit.pl                          |  2 +-
> members/maninvoice.pl                         |  2 +-
> members/member-flags.pl                       |  2 +-
> members/member-password.pl                    |  2 +-
> members/member.pl                             |  2 +-
> members/memberentry.pl                        |  2 +-
> members/members-home.pl                       |  2 +-
> members/members-update-do.pl                  |  2 +-
> members/members-update.pl                     |  2 +-
> members/merge-patrons.pl                      |  2 +-
> members/mod_debarment.pl                      |  2 +-
> members/notices.pl                            |  2 +-
> members/patronimage.pl                        |  2 +-
> members/print_overdues.pl                     |  2 +-
> members/printfeercpt.pl                       |  2 +-
> members/printinvoice.pl                       |  2 +-
> members/printslip.pl                          |  2 +-
> members/purchase-suggestions.pl               |  2 +-
> members/routing-lists.pl                      |  2 +-
> members/setstatus.pl                          |  2 +-
> members/statistics.pl                         |  2 +-
> members/update-child.pl                       |  2 +-
> misc/batchImportMARCWithBiblionumbers.pl      |  2 +-
> misc/cronjobs/check-url.pl                    |  4 ++--
> misc/cronjobs/cloud-kw.pl                     |  2 +-
> misc/cronjobs/gather_print_notices.pl         |  2 +-
> ...MARC_sync_date_created_with_marc_biblio.pl |  8 +++----
> misc/migration_tools/ifla/update.pl           | 14 +++++------
> misc/translator/LangInstaller.pm              |  8 +++----
> misc/translator/po2json                       |  2 +-
> offline_circ/download.pl                      |  2 +-
> opac/clubs/clubs-tab.pl                       |  2 +-
> opac/clubs/enroll.pl                          |  2 +-
> opac/errors/400.pl                            |  2 +-
> opac/errors/401.pl                            |  2 +-
> opac/errors/402.pl                            |  2 +-
> opac/errors/403.pl                            |  2 +-
> opac/errors/404.pl                            |  2 +-
> opac/errors/500.pl                            |  2 +-
> opac/external/overdrive/auth.pl               |  2 +-
> opac/ilsdi.pl                                 |  2 +-
> opac/maintenance.pl                           |  2 +-
> opac/opac-account-pay-paypal-return.pl        |  2 +-
> opac/opac-account-pay-return.pl               |  2 +-
> opac/opac-account-pay.pl                      |  2 +-
> opac/opac-account.pl                          |  2 +-
> opac/opac-addbybiblionumber.pl                |  2 +-
> opac/opac-alert-subscribe.pl                  |  2 +-
> opac/opac-article-request-cancel.pl           |  2 +-
> opac/opac-authorities-home.pl                 |  2 +-
> opac/opac-authoritiesdetail.pl                |  2 +-
> opac/opac-basket.pl                           |  2 +-
> opac/opac-blocked.pl                          |  2 +-
> opac/opac-browse.pl                           |  2 +-
> opac/opac-browser.pl                          |  2 +-
> opac/opac-changelanguage.pl                   |  2 +-
> opac/opac-course-details.pl                   |  2 +-
> opac/opac-course-reserves.pl                  |  2 +-
> opac/opac-discharge.pl                        |  2 +-
> opac/opac-downloadshelf.pl                    |  2 +-
> opac/opac-ics.pl                              |  2 +-
> opac/opac-idref.pl                            |  2 +-
> opac/opac-illrequests.pl                      |  2 +-
> opac/opac-image.pl                            |  2 +-
> opac/opac-imageviewer.pl                      |  2 +-
> opac/opac-issue-note.pl                       |  2 +-
> opac/opac-main.pl                             |  2 +-
> opac/opac-memberentry.pl                      |  2 +-
> opac/opac-modrequest-suspend.pl               |  2 +-
> opac/opac-modrequest.pl                       |  2 +-
> opac/opac-news-rss.pl                         |  2 +-
> opac/opac-overdrive-search.pl                 |  2 +-
> opac/opac-passwd.pl                           |  2 +-
> opac/opac-password-recovery.pl                |  2 +-
> opac/opac-patron-consent.pl                   |  2 +-
> opac/opac-patron-image.pl                     |  2 +-
> opac/opac-privacy.pl                          |  2 +-
> opac/opac-readingrecord.pl                    |  2 +-
> opac/opac-recordedbooks-search.pl             |  2 +-
> opac/opac-registration-verify.pl              |  2 +-
> opac/opac-renew.pl                            |  2 +-
> opac/opac-reportproblem.pl                    |  2 +-
> opac/opac-request-article.pl                  |  2 +-
> opac/opac-reserve.pl                          |  2 +-
> opac/opac-restrictedpage.pl                   |  2 +-
> opac/opac-review.pl                           |  2 +-
> opac/opac-routing-lists.pl                    |  2 +-
> opac/opac-search-history.pl                   |  2 +-
> opac/opac-search.pl                           |  2 +-
> opac/opac-sendshelf.pl                        |  2 +-
> opac/opac-serial-issues.pl                    |  2 +-
> opac/opac-shareshelf.pl                       |  4 ++--
> opac/opac-shelves.pl                          |  2 +-
> opac/opac-showmarc.pl                         |  2 +-
> opac/opac-showreviews.pl                      |  2 +-
> opac/opac-suggestions.pl                      |  2 +-
> opac/opac-tags_subject.pl                     |  2 +-
> opac/opac-topissues.pl                        |  2 +-
> opac/opac-user.pl                             |  2 +-
> opac/sci/sci-main.pl                          |  2 +-
> opac/sco/help.pl                              |  2 +-
> opac/sco/printslip.pl                         |  2 +-
> opac/sco/sco-main.pl                          |  2 +-
> opac/svc/checkout_notes                       |  2 +-
> opac/svc/club/cancel_enrollment               |  2 +-
> opac/svc/club/enroll                          |  2 +-
> opac/svc/overdrive                            |  2 +-
> opac/svc/overdrive_proxy                      |  2 +-
> opac/svc/recordedbooks                        |  2 +-
> opac/svc/shelfbrowser.pl                      |  2 +-
> opac/svc/suggestion                           |  2 +-
> opac/tracklinks.pl                            |  2 +-
> patron_lists/add-modify.pl                    |  2 +-
> patron_lists/delete.pl                        |  2 +-
> patron_lists/list.pl                          |  2 +-
> patron_lists/lists.pl                         |  2 +-
> patron_lists/patrons.pl                       |  2 +-
> patroncards/add_user_search.pl                |  2 +-
> patroncards/create-pdf.pl                     |  2 +-
> patroncards/edit-batch.pl                     |  2 +-
> patroncards/edit-layout.pl                    |  2 +-
> patroncards/edit-profile.pl                   |  2 +-
> patroncards/edit-template.pl                  |  2 +-
> patroncards/home.pl                           |  2 +-
> patroncards/manage.pl                         |  2 +-
> patroncards/print.pl                          |  2 +-
> plugins/plugins-enable.pl                     |  2 +-
> plugins/plugins-home.pl                       |  2 +-
> plugins/plugins-uninstall.pl                  |  2 +-
> plugins/plugins-upload.pl                     |  2 +-
> plugins/run.pl                                |  2 +-
> reports/acquisitions_stats.pl                 |  2 +-
> reports/bor_issues_top.pl                     |  2 +-
> reports/borrowers_out.pl                      |  2 +-
> reports/borrowers_stats.pl                    |  2 +-
> reports/cash_register_stats.pl                |  2 +-
> reports/cat_issues_top.pl                     |  2 +-
> reports/catalogue_out.pl                      |  2 +-
> reports/catalogue_stats.pl                    |  2 +-
> reports/dictionary.pl                         |  2 +-
> reports/guided_reports.pl                     |  2 +-
> reports/issues_avg_stats.pl                   |  2 +-
> reports/itemslost.pl                          |  2 +-
> reports/manager.pl                            |  2 +-
> reports/orders_by_fund.pl                     |  2 +-
> reports/reports-home.pl                       |  2 +-
> reports/reserves_stats.pl                     |  2 +-
> reports/serials_stats.pl                      |  2 +-
> reserve/modrequest.pl                         |  2 +-
> reserve/modrequest_suspendall.pl              |  2 +-
> reserve/request.pl                            |  2 +-
> reviews/reviewswaiting.pl                     |  2 +-
> rotating_collections/addItems.pl              |  2 +-
> rotating_collections/editCollections.pl       |  2 +-
> rotating_collections/rotatingCollections.pl   |  2 +-
> rotating_collections/transferCollection.pl    |  2 +-
> serials/acqui-search-result.pl                |  2 +-
> serials/acqui-search.pl                       |  2 +-
> serials/add_user_search.pl                    |  2 +-
> serials/checkexpiration.pl                    |  2 +-
> serials/create-numberpattern.pl               |  2 +-
> serials/lateissues-export.pl                  |  2 +-
> serials/routing-preview.pl                    |  2 +-
> serials/routing.pl                            |  2 +-
> serials/serials-collection.pl                 |  2 +-
> serials/serials-home.pl                       |  2 +-
> serials/serials-search.pl                     |  2 +-
> serials/showpredictionpattern.pl              |  2 +-
> serials/subscription-batchedit.pl             |  2 +-
> serials/subscription-bib-search.pl            |  2 +-
> serials/subscription-detail.pl                |  2 +-
> serials/subscription-frequencies.pl           |  2 +-
> serials/subscription-frequency.pl             |  2 +-
> serials/subscription-history.pl               |  2 +-
> serials/subscription-numberpattern.pl         |  2 +-
> serials/subscription-numberpatterns.pl        |  2 +-
> serials/subscription-renew.pl                 |  2 +-
> serials/viewalerts.pl                         |  2 +-
> services/itemrecorddisplay.pl                 |  2 +-
> suggestion/add_user_search.pl                 |  2 +-
> suggestion/suggester_search.pl                |  2 +-
> svc/article_request                           |  2 +-
> svc/authentication                            |  2 +-
> svc/barcode                                   |  2 +-
> svc/bib                                       |  2 +-
> svc/bib_framework                             |  2 +-
> svc/bib_profile                               |  2 +-
> svc/checkin                                   |  2 +-
> svc/checkout_notes                            |  2 +-
> svc/checkouts                                 |  2 +-
> svc/club/cancel_enrollment                    |  2 +-
> svc/club/delete                               |  2 +-
> svc/club/enroll                               |  2 +-
> svc/club/template/delete                      |  2 +-
> svc/cover_images                              |  2 +-
> svc/creator_batches                           |  2 +-
> svc/hold/resume                               |  2 +-
> svc/hold/suspend                              |  2 +-
> svc/holds                                     |  2 +-
> svc/import_bib                                |  2 +-
> svc/letters/preview                           |  2 +-
> svc/mana/increment                            |  2 +-
> svc/mana/search                               |  4 ++--
> svc/mana/share                                |  2 +-
> svc/mana/use                                  |  2 +-
> svc/members/add_to_list                       |  2 +-
> svc/members/search                            |  2 +-
> svc/new_bib                                   |  2 +-
> svc/problem_reports                           |  2 +-
> svc/renew                                     |  2 +-
> svc/return_claims                             |  2 +-
> svc/virtualshelves/search                     |  2 +-
> t/Auth_with_shibboleth.t                      |  4 ++--
> t/Calendar.t                                  |  2 +-
> t/Context.t                                   |  2 +-
> t/DateUtils.t                                 |  2 +-
> t/Koha_MetadataRecord.t                       |  8 +++----
> t/Koha_Template_Plugin_Koha.t                 |  4 ++--
> t/Languages.t                                 |  2 +-
> t/Output_JSONStream.t                         |  2 +-
> t/Search/History.t                            |  2 +-
> t/SuggestionEngine_AuthorityFile.t            |  2 +-
> t/db_dependent/00-strict.t                    |  2 +-
> t/db_dependent/Accounts.t                     |  4 ++--
> t/db_dependent/Acquisition.t                  |  2 +-
> t/db_dependent/Auth.t                         |  4 ++--
> t/db_dependent/Auth_with_cas.t                |  2 +-
> t/db_dependent/AuthoritiesMarc.t              |  2 +-
> t/db_dependent/BackgroundJob.t                |  2 +-
> t/db_dependent/Biblio.t                       |  4 ++--
> t/db_dependent/Circulation.t                  |  2 +-
> .../Circulation/CheckIfIssuedToPatron.t       |  2 +-
> .../Circulation/GetPendingOnSiteCheckouts.t   |  2 +-
> t/db_dependent/Creators/Lib.t                 |  2 +-
> t/db_dependent/FrameworkPlugin.t              |  8 +++----
> t/db_dependent/ILSDI_Services.t               | 24 +++++++++----------
> t/db_dependent/Items.t                        |  8 +++----
> t/db_dependent/Koha/Account.t                 |  2 +-
> t/db_dependent/Koha/Account/Line.t            |  4 ++--
> t/db_dependent/Koha/Patron/Messages.t         |  2 +-
> t/db_dependent/Koha/Patrons.t                 |  2 +-
> .../Koha/Z3950Responder/GenericSession.t      |  8 +++----
> .../Koha/Z3950Responder/ZebraSession.t        | 10 ++++----
> t/db_dependent/Members/GetAllIssues.t         |  2 +-
> t/db_dependent/Members/IssueSlip.t            |  2 +-
> t/db_dependent/Record.t                       |  2 +-
> .../RecordProcessor_EmbedSeeFromHeadings.t    |  4 ++--
> t/db_dependent/Reserves/GetReserveFee.t       |  2 +-
> t/db_dependent/Search.t                       | 12 +++++-----
> t/db_dependent/Search/History.t               |  8 +++----
> t/db_dependent/Serials.t                      |  2 +-
> .../SuggestionEngine_ExplodedTerms.t          | 10 ++++----
> t/db_dependent/TablesSettings.t               |  2 +-
> t/db_dependent/Template/Plugin/KohaDates.t    |  2 +-
> t/db_dependent/XISBN.t                        |  2 +-
> t/db_dependent/api/v1/checkouts.t             |  2 +-
> t/lib/Mocks.pm                                |  4 ++--
> tools/access_files.pl                         |  2 +-
> tools/ajax-inventory.pl                       |  2 +-
> tools/automatic_item_modification_by_age.pl   |  2 +-
> tools/batchMod.pl                             |  2 +-
> tools/batch_delete_records.pl                 |  2 +-
> tools/batch_extend_due_dates.pl               |  2 +-
> tools/batch_record_modification.pl            |  2 +-
> tools/batch_records_ajax.pl                   |  2 +-
> tools/cleanborrowers.pl                       |  2 +-
> tools/copy-holidays.pl                        |  2 +-
> tools/csv-profiles.pl                         |  2 +-
> tools/exceptionHolidays.pl                    |  2 +-
> tools/export.pl                               |  2 +-
> tools/holidays.pl                             |  2 +-
> tools/koha-news.pl                            |  2 +-
> tools/letter.pl                               |  2 +-
> tools/manage-marc-import.pl                   |  2 +-
> tools/marc_modification_templates.pl          |  2 +-
> tools/modborrowers.pl                         |  2 +-
> tools/newHolidays.pl                          |  2 +-
> tools/overduerules.pl                         |  2 +-
> tools/picture-upload.pl                       |  2 +-
> tools/problem-reports.pl                      |  2 +-
> tools/quotes-upload.pl                        |  2 +-
> tools/quotes.pl                               |  2 +-
> tools/quotes/quotes-upload_ajax.pl            |  2 +-
> tools/scheduler.pl                            |  2 +-
> tools/showdiffmarc.pl                         |  2 +-
> tools/stage-marc-import.pl                    |  2 +-
> tools/stockrotation.pl                        |  2 +-
> tools/tools-home.pl                           |  2 +-
> tools/upload-cover-image.pl                   |  2 +-
> tools/viewlog.pl                              |  2 +-
> virtualshelves/addbybiblionumber.pl           |  2 +-
> virtualshelves/downloadshelf.pl               |  2 +-
> virtualshelves/shelves.pl                     |  2 +-
> xt/author/valid-templates.t                   |  2 +-
> 509 files changed, 590 insertions(+), 590 deletions(-)
>
>diff --git a/.perlcriticrc b/.perlcriticrc
>index 9a4dcf4f029..1e926860670 100644
>--- a/.perlcriticrc
>+++ b/.perlcriticrc
>@@ -1,5 +1,5 @@
> severity = 5
>-include = ProhibitUnusedVariables
>+include = ProhibitUnusedVariables Objects::ProhibitIndirectSyntax
> exclude = Miscellanea::RequireRcsKeywords
> 
> [Perl::Critic::Policy::BuiltinFunctions::ProhibitStringyEval]
>diff --git a/C4/Auth.pm b/C4/Auth.pm
>index 80cc4773a6c..a114c60324a 100644
>--- a/C4/Auth.pm
>+++ b/C4/Auth.pm
>@@ -1794,7 +1794,7 @@ sub _get_session_params {
> sub get_session {
>     my $sessionID      = shift;
>     my $params = _get_session_params();
>-    return new CGI::Session( $params->{dsn}, $sessionID, $params->{dsn_args} );
>+    return CGI::Session->new( $params->{dsn}, $sessionID, $params->{dsn_args} );
> }
> 
> 
>diff --git a/C4/AuthoritiesMarc.pm b/C4/AuthoritiesMarc.pm
>index cbf59cdc036..9fa4d4f96f8 100644
>--- a/C4/AuthoritiesMarc.pm
>+++ b/C4/AuthoritiesMarc.pm
>@@ -227,7 +227,7 @@ sub SearchAuthorities {
>     my @oAuth;
>     my $i;
>     $oAuth[0]=C4::Context->Zconn("authorityserver" , 1);
>-    my $Anewq= new ZOOM::Query::PQF($query,$oAuth[0]);
>+    my $Anewq= ZOOM::Query::PQF->new($query,$oAuth[0]);
>     my $oAResult;
>     $oAResult= $oAuth[0]->search($Anewq) ;
>     while (($i = ZOOM::event(\@oAuth)) != 0) {
>diff --git a/C4/Breeding.pm b/C4/Breeding.pm
>index 8287cf4b6f9..2a4ce3c2acc 100644
>--- a/C4/Breeding.pm
>+++ b/C4/Breeding.pm
>@@ -159,7 +159,7 @@ sub Z3950Search {
>         $oResult[$s] =
>             $server->{servertype} eq 'zed'?
>                 $oConnection[$s]->search_pqf( $server_zquery ):
>-                $oConnection[$s]->search(new ZOOM::Query::CQL(
>+                $oConnection[$s]->search(ZOOM::Query::CQL->new(
>                     _translate_query( $server, $squery )));
>         $s++;
>     }
>@@ -430,7 +430,7 @@ sub _isbn_replace {
> 
> sub _create_connection {
>     my ( $server ) = @_;
>-    my $option1= new ZOOM::Options();
>+    my $option1= ZOOM::Options->new();
>     $option1->option( 'async' => 1 );
>     $option1->option( 'elementSetName', 'F' );
>     $option1->option( 'preferredRecordSyntax', $server->{syntax} );
>@@ -568,7 +568,7 @@ sub Z3950SearchAuth {
>             }
>             else {
>                 $oResult[$s] = $oConnection[$s]->search(
>-                    new ZOOM::Query::CQL(_translate_query( $server, $squery ))
>+                    ZOOM::Query::CQL->new(_translate_query( $server, $squery ))
>                 );
>             }
>             $encoding[$s]   = ($server->{encoding}?$server->{encoding}:"iso-5426");
>diff --git a/C4/Context.pm b/C4/Context.pm
>index 585332c3263..58a6ad5e056 100644
>--- a/C4/Context.pm
>+++ b/C4/Context.pm
>@@ -637,7 +637,7 @@ sub _new_Zconn {
>     my $password = $context->{"serverinfo"}->{$server}->{"password"};
>     eval {
>         # set options
>-        my $o = new ZOOM::Options();
>+        my $o = ZOOM::Options->new();
>         $o->option(user => $user) if $user && $password;
>         $o->option(password => $password) if $user && $password;
>         $o->option(async => 1) if $async;
>diff --git a/C4/InstallAuth.pm b/C4/InstallAuth.pm
>index a7537544629..7ed980b4674 100644
>--- a/C4/InstallAuth.pm
>+++ b/C4/InstallAuth.pm
>@@ -243,7 +243,7 @@ sub checkauth {
>     if ( $sessionID = $query->cookie("CGISESSID") ) {
>         C4::Context->_new_userenv($sessionID);
>         my $session =
>-          new CGI::Session( "driver:File;serializer:yaml", $sessionID,
>+          CGI::Session->new( "driver:File;serializer:yaml", $sessionID,
>             { Directory => $sessdir } );
>         if ( $session->param('cardnumber') ) {
>             C4::Context->set_userenv(
>@@ -283,7 +283,7 @@ sub checkauth {
>     }
>     unless ($userid) {
>         my $session =
>-          new CGI::Session( "driver:File;serializer:yaml", undef, { Directory => $sessdir } );
>+          CGI::Session->new( "driver:File;serializer:yaml", undef, { Directory => $sessdir } );
>         $sessionID = $session->id;
>         $userid    = $query->param('userid');
>         C4::Context->_new_userenv($sessionID);
>diff --git a/C4/Languages.pm b/C4/Languages.pm
>index 6aa1201c559..2dc838a3539 100644
>--- a/C4/Languages.pm
>+++ b/C4/Languages.pm
>@@ -603,7 +603,7 @@ sub getlanguage {
>         return $cached if $cached;
>     }
> 
>-    $cgi //= new CGI;
>+    $cgi //= CGI->new;
>     my $interface = C4::Context->interface;
>     my $theme = C4::Context->preference( ( $interface eq 'opac' ) ? 'opacthemes' : 'template' );
>     my $language;
>diff --git a/C4/Record.pm b/C4/Record.pm
>index 1916a1becac..c390c7ea06b 100644
>--- a/C4/Record.pm
>+++ b/C4/Record.pm
>@@ -375,7 +375,7 @@ sub marc2endnote {
>         Year => $marc_rec_obj->publication_date,
>         Abstract => $abstract,
>     };
>-    my $style = new Biblio::EndnoteStyle();
>+    my $style = Biblio::EndnoteStyle->new();
>     my $template;
>     $template.= "DB - DB\n" if C4::Context->preference("LibraryName");
>     $template.="T1 - Title\n" if $marc_rec_obj->title();
>diff --git a/C4/SIP/Sip/Configuration.pm b/C4/SIP/Sip/Configuration.pm
>index fd2c3e79cd3..3f5bdaaa4bd 100644
>--- a/C4/SIP/Sip/Configuration.pm
>+++ b/C4/SIP/Sip/Configuration.pm
>@@ -12,7 +12,7 @@ use XML::Simple qw(:strict);
> 
> use C4::SIP::Sip qw(siplog);
> 
>-my $parser = new XML::Simple(
>+my $parser = XML::Simple->new(
>     KeyAttr => {
>         login       => '+id',
>         institution => '+id',
>diff --git a/C4/SIP/t/SIPtest.pm b/C4/SIP/t/SIPtest.pm
>index a9a1ea5d120..6d750a793af 100644
>--- a/C4/SIP/t/SIPtest.pm
>+++ b/C4/SIP/t/SIPtest.pm
>@@ -263,7 +263,7 @@ sub run_sip_tests {
>     $Sip::error_detection = 1;
>     $/ = "\015\012";	# must use correct record separator
> 
>-    $sock = new IO::Socket::INET(PeerAddr => $server,
>+    $sock = IO::Socket::INET->new(PeerAddr => $server,
> 				 Type     => SOCK_STREAM);
> 
>     BAIL_OUT('failed to create connection to server') unless $sock;
>diff --git a/C4/SIP/xmlparse.pl b/C4/SIP/xmlparse.pl
>index 77ed5350656..0d8460f382f 100755
>--- a/C4/SIP/xmlparse.pl
>+++ b/C4/SIP/xmlparse.pl
>@@ -13,7 +13,7 @@ use English;
> use XML::Simple qw(:strict);
> use Data::Dumper;
> 
>-my $parser = new XML::Simple( KeyAttr   => { login => '+id',
>+my $parser = XML::Simple->new( KeyAttr   => { login => '+id',
> 					     institution => '+id',
> 					     service => '+port', },
> 			      GroupTags =>  { listeners => 'service',
>diff --git a/C4/Search.pm b/C4/Search.pm
>index 5509a5b4cbd..f2e73ee5a4f 100644
>--- a/C4/Search.pm
>+++ b/C4/Search.pm
>@@ -224,7 +224,7 @@ sub SimpleSearch {
>         eval {
>             $zconns[$i] = C4::Context->Zconn( $servers[$i], 1 );
>             $query =~ s/:/=/g unless $options{skip_normalize};
>-            $zoom_queries[$i] = new ZOOM::Query::CCL2RPN( $query, $zconns[$i]);
>+            $zoom_queries[$i] = ZOOM::Query::CCL2RPN->new( $query, $zconns[$i]);
>             $tmpresults[$i] = $zconns[$i]->search( $zoom_queries[$i] );
> 
>             # error handling
>@@ -337,18 +337,18 @@ sub getRecords {
>             if ($query_type) {
>                 if ($query_type =~ /^ccl/) {
>                     $query_to_use =~ s/\:/\=/g;    # change : to = last minute (FIXME)
>-                    $results[$i] = $zconns[$i]->search(new ZOOM::Query::CCL2RPN($query_to_use, $zconns[$i]));
>+                    $results[$i] = $zconns[$i]->search(ZOOM::Query::CCL2RPN->new($query_to_use, $zconns[$i]));
>                 } elsif ($query_type =~ /^cql/) {
>-                    $results[$i] = $zconns[$i]->search(new ZOOM::Query::CQL($query_to_use, $zconns[$i]));
>+                    $results[$i] = $zconns[$i]->search(ZOOM::Query::CQL->new($query_to_use, $zconns[$i]));
>                 } elsif ($query_type =~ /^pqf/) {
>-                    $results[$i] = $zconns[$i]->search(new ZOOM::Query::PQF($query_to_use, $zconns[$i]));
>+                    $results[$i] = $zconns[$i]->search(ZOOM::Query::PQF->new($query_to_use, $zconns[$i]));
>                 } else {
>                     warn "Unknown query_type '$query_type'.  Results undetermined.";
>                 }
>             } elsif ($scan) {
>-                    $results[$i] = $zconns[$i]->scan(  new ZOOM::Query::CCL2RPN($query_to_use, $zconns[$i]));
>+                    $results[$i] = $zconns[$i]->scan(  ZOOM::Query::CCL2RPN->new($query_to_use, $zconns[$i]));
>             } else {
>-                    $results[$i] = $zconns[$i]->search(new ZOOM::Query::CCL2RPN($query_to_use, $zconns[$i]));
>+                    $results[$i] = $zconns[$i]->search(ZOOM::Query::CCL2RPN->new($query_to_use, $zconns[$i]));
>             }
>         };
>         if ($@) {
>diff --git a/C4/Service.pm b/C4/Service.pm
>index fa95a61cdbd..bdb2ba17ff1 100644
>--- a/C4/Service.pm
>+++ b/C4/Service.pm
>@@ -86,7 +86,7 @@ passed to C<return_success()>.
> sub init {
>     my ( $class, %needed_flags ) = @_;
> 
>-    our $query = new CGI;
>+    our $query = CGI->new;
> 
>     my ( $status, $cookie_, $sessionID ) = check_api_auth( $query, \%needed_flags );
> 
>@@ -94,7 +94,7 @@ sub init {
> 
>     $class->return_error( 'auth', $status ) if ( $status ne 'ok' );
> 
>-    return ( $query, new C4::Output::JSONStream );
>+    return ( $query, C4::Output::JSONStream->new );
> }
> 
> =head2 return_error
>@@ -119,7 +119,7 @@ param => value pairs.
> sub return_error {
>     my ( $class, $type, $error, %flags ) = @_;
> 
>-    my $response = new C4::Output::JSONStream;
>+    my $response = C4::Output::JSONStream->new;
> 
>     $response->param( message => $error ) if ( $error );
>     $response->param( type => $type, %flags );
>@@ -152,7 +152,7 @@ structure verbatim.
> sub return_multi {
>     my ( $class, $responses, @flags ) = @_;
> 
>-    my $response = new C4::Output::JSONStream;
>+    my $response = C4::Output::JSONStream->new;
> 
>     if ( !@$responses ) {
>         $class->return_success( $response );
>diff --git a/Koha/Illrequest/Logger.pm b/Koha/Illrequest/Logger.pm
>index 45042a8ca07..a899a8db22d 100644
>--- a/Koha/Illrequest/Logger.pm
>+++ b/Koha/Illrequest/Logger.pm
>@@ -65,7 +65,7 @@ sub new {
>         }
>     };
> 
>-    my $query = new CGI; # To keep C4::Templates::_get_template_file() from complaining
>+    my $query = CGI->new; # To keep C4::Templates::_get_template_file() from complaining
>     my ( $htdocs, $theme, $lang, $base ) =
>         C4::Templates::_get_template_file('ill/log/', 'intranet', $query);
> 
>diff --git a/Koha/OAI/Server/DeletedRecord.pm b/Koha/OAI/Server/DeletedRecord.pm
>index 7d03f670150..e865b285e64 100644
>--- a/Koha/OAI/Server/DeletedRecord.pm
>+++ b/Koha/OAI/Server/DeletedRecord.pm
>@@ -30,7 +30,7 @@ sub new {
>     my $self = $class->SUPER::new(%args);
> 
>     $timestamp =~ s/ /T/, $timestamp .= 'Z';
>-    $self->header( new HTTP::OAI::Header(
>+    $self->header( HTTP::OAI::Header->new(
>         status      => 'deleted',
>         identifier  => $args{identifier},
>         datestamp   => $timestamp,
>diff --git a/Koha/OAI/Server/GetRecord.pm b/Koha/OAI/Server/GetRecord.pm
>index 30379c4246d..db94c517c57 100644
>--- a/Koha/OAI/Server/GetRecord.pm
>+++ b/Koha/OAI/Server/GetRecord.pm
>@@ -92,7 +92,7 @@ sub new {
>         {
>             return HTTP::OAI::Response->new(
>              requestURL  => $repository->self_url(),
>-             errors      => [ new HTTP::OAI::Error(
>+             errors      => [ HTTP::OAI::Error->new(
>                 code    => 'idDoesNotExist',
>                 message => "There is no biblio record with this identifier",
>                 ) ],
>diff --git a/Koha/OAI/Server/ListBase.pm b/Koha/OAI/Server/ListBase.pm
>index 92af1c36612..f1567dfb47f 100644
>--- a/Koha/OAI/Server/ListBase.pm
>+++ b/Koha/OAI/Server/ListBase.pm
>@@ -39,7 +39,7 @@ use MARC::File::XML;
> sub GetRecords {
>     my ($class, $self, $repository, $metadata, %args) = @_;
> 
>-    my $token = new Koha::OAI::Server::ResumptionToken( %args );
>+    my $token = Koha::OAI::Server::ResumptionToken->new( %args );
>     my $dbh = C4::Context->dbh;
>     my $set;
>     if ( defined $token->{'set'} ) {
>@@ -127,7 +127,7 @@ sub GetRecords {
>             $count++;
>             if ( $count > $max ) {
>                 $self->resumptionToken(
>-                    new Koha::OAI::Server::ResumptionToken(
>+                    Koha::OAI::Server::ResumptionToken->new(
>                         metadataPrefix  => $token->{metadata_prefix},
>                         from            => $token->{from},
>                         until           => $token->{until},
>@@ -165,7 +165,7 @@ sub GetRecords {
>             } else {
>                 $timestamp =~ s/ /T/;
>                 $timestamp .= 'Z';
>-                $self->identifier( new HTTP::OAI::Header(
>+                $self->identifier( HTTP::OAI::Header->new(
>                     identifier => $repository->{ koha_identifier} . ':' . $biblionumber,
>                     datestamp  => $timestamp,
>                     status     => $deleted ? 'deleted' : undef
>diff --git a/Koha/OAI/Server/ListIdentifiers.pm b/Koha/OAI/Server/ListIdentifiers.pm
>index 8793f669289..4f8dff80344 100644
>--- a/Koha/OAI/Server/ListIdentifiers.pm
>+++ b/Koha/OAI/Server/ListIdentifiers.pm
>@@ -35,7 +35,7 @@ sub new {
>     unless ($count) {
>         return HTTP::OAI::Response->new(
>             requestURL => $repository->self_url(),
>-            errors     => [ new HTTP::OAI::Error( code => 'noRecordsMatch' ) ],
>+            errors     => [ HTTP::OAI::Error->new( code => 'noRecordsMatch' ) ],
>         );
>     }
> 
>diff --git a/Koha/OAI/Server/ListRecords.pm b/Koha/OAI/Server/ListRecords.pm
>index ff1c786395e..f83af21a436 100644
>--- a/Koha/OAI/Server/ListRecords.pm
>+++ b/Koha/OAI/Server/ListRecords.pm
>@@ -35,7 +35,7 @@ sub new {
>     unless ($count) {
>         return HTTP::OAI::Response->new(
>             requestURL => $repository->self_url(),
>-            errors     => [ new HTTP::OAI::Error( code => 'noRecordsMatch' ) ],
>+            errors     => [ HTTP::OAI::Error->new( code => 'noRecordsMatch' ) ],
>         );
>     }
> 
>diff --git a/Koha/OAI/Server/ListSets.pm b/Koha/OAI/Server/ListSets.pm
>index 281b7620110..68264787f1f 100644
>--- a/Koha/OAI/Server/ListSets.pm
>+++ b/Koha/OAI/Server/ListSets.pm
>@@ -54,7 +54,7 @@ sub new {
>     }
> 
>     $self->resumptionToken(
>-        new Koha::OAI::Server::ResumptionToken(
>+        Koha::OAI::Server::ResumptionToken->new(
>             metadataPrefix => $token->{metadata_prefix},
>             offset         => $pos
>         )
>diff --git a/Koha/OAI/Server/Record.pm b/Koha/OAI/Server/Record.pm
>index 57bc67a6653..46248fa4ae1 100644
>--- a/Koha/OAI/Server/Record.pm
>+++ b/Koha/OAI/Server/Record.pm
>@@ -32,7 +32,7 @@ sub new {
>     my $self = $class->SUPER::new(%args);
> 
>     $timestamp =~ s/ /T/, $timestamp .= 'Z';
>-    $self->header( new HTTP::OAI::Header(
>+    $self->header( HTTP::OAI::Header->new(
>         identifier  => $args{identifier},
>         datestamp   => $timestamp,
>     ) );
>diff --git a/Koha/OAI/Server/Repository.pm b/Koha/OAI/Server/Repository.pm
>index 558606d57d6..ca34ee8d003 100644
>--- a/Koha/OAI/Server/Repository.pm
>+++ b/Koha/OAI/Server/Repository.pm
>@@ -127,7 +127,7 @@ sub new {
>     # Is metadataPrefix supported by the repository?
>     my $mdp = param('metadataPrefix') || '';
>     if ( $mdp && !grep { $_ eq $mdp } @{$self->{ koha_metadata_format }} ) {
>-        push @errs, new HTTP::OAI::Error(
>+        push @errs, HTTP::OAI::Error->new(
>             code    => 'cannotDisseminateFormat',
>             message => "Dissemination as '$mdp' is not supported",
>         );
>diff --git a/Koha/Patron/Discharge.pm b/Koha/Patron/Discharge.pm
>index 4cd596dfd10..f35f434109c 100644
>--- a/Koha/Patron/Discharge.pm
>+++ b/Koha/Patron/Discharge.pm
>@@ -118,7 +118,7 @@ sub generate_as_pdf {
>     $letter->{'title'}   =~ s/<<today>>/$today/g;
>     $letter->{'content'} =~ s/<<today>>/$today/g;
> 
>-    my $tmpl = C4::Templates::gettemplate('batch/print-notices.tt', 'intranet', new CGI);
>+    my $tmpl = C4::Templates::gettemplate('batch/print-notices.tt', 'intranet', CGI->new);
>     $tmpl->param(
>         stylesheet => C4::Context->preference("NoticeCSS"),
>         today      => $today,
>diff --git a/Koha/SuggestionEngine/Plugin/ExplodedTerms.pm b/Koha/SuggestionEngine/Plugin/ExplodedTerms.pm
>index 7129d9b6531..cb052677208 100644
>--- a/Koha/SuggestionEngine/Plugin/ExplodedTerms.pm
>+++ b/Koha/SuggestionEngine/Plugin/ExplodedTerms.pm
>@@ -79,7 +79,7 @@ sub get_suggestions {
>         'su-br',
>         'su-rl'
>     );
>-    my $cgi = new CGI;
>+    my $cgi = CGI->new;
>     my $template = C4::Templates::gettemplate('text/explodedterms.tt', 'opac', $cgi);
>     my @results;
>     foreach my $index (@indexes) {
>diff --git a/Koha/pdfformat/layout2pages.pm b/Koha/pdfformat/layout2pages.pm
>index dcb5ec731df..28f35a0e141 100644
>--- a/Koha/pdfformat/layout2pages.pm
>+++ b/Koha/pdfformat/layout2pages.pm
>@@ -57,7 +57,7 @@ sub printorders {
>     $pdf->mediabox($height/mm, $width/mm);
>     my $page = $pdf->page();
>     
>-    my $pdftable = new PDF::Table();
>+    my $pdftable = PDF::Table->new();
>     
>     my $abaskets;
>     my $arrbasket;
>diff --git a/Koha/pdfformat/layout2pagesde.pm b/Koha/pdfformat/layout2pagesde.pm
>index 94f520c9196..d7d69126de4 100644
>--- a/Koha/pdfformat/layout2pagesde.pm
>+++ b/Koha/pdfformat/layout2pagesde.pm
>@@ -57,7 +57,7 @@ sub printorders {
>     $pdf->mediabox($height/mm, $width/mm);
>     my $page = $pdf->page();
>     
>-    my $pdftable = new PDF::Table();
>+    my $pdftable = PDF::Table->new();
>     
>     my $abaskets;
>     my $arrbasket;
>diff --git a/Koha/pdfformat/layout3pages.pm b/Koha/pdfformat/layout3pages.pm
>index 78e698e29fd..9c2456be553 100644
>--- a/Koha/pdfformat/layout3pages.pm
>+++ b/Koha/pdfformat/layout3pages.pm
>@@ -82,7 +82,7 @@ sub printorders {
>             . ( $delivery_library ? "delivery at " . $delivery_library->branchname : "" )
>         );
> 
>-        my $pdftable = new PDF::Table();
>+        my $pdftable = PDF::Table->new();
>         my $abaskets;
>         my $arrbasket;
>         my @keys = ('Document', 'Qty', 'RRP tax exc.', 'RRP tax inc.', 'Discount', 'Discount price', 'Tax rate', 'Total tax exc.', 'Total tax inc.');
>@@ -200,7 +200,7 @@ sub printbaskets {
>     $text->font( $pdf->corefont("Times", -encoding => "utf8"), 6/mm );
>     $text->translate(30/mm,  ($height-28.5)/mm);
>     $text->text($libraryname);
>-    my $pdftable = new PDF::Table();
>+    my $pdftable = PDF::Table->new();
>     my $abaskets;
>     my $arrbasket;
>     # header of the table
>diff --git a/Koha/pdfformat/layout3pagesfr.pm b/Koha/pdfformat/layout3pagesfr.pm
>index 2fdce7a4df3..eb3d88e84af 100644
>--- a/Koha/pdfformat/layout3pagesfr.pm
>+++ b/Koha/pdfformat/layout3pagesfr.pm
>@@ -82,7 +82,7 @@ sub printorders {
>             . ( $delivery_library ? "livraison Ã  " . $delivery_library->branchname : "" )
>         );
> 
>-        my $pdftable = new PDF::Table();
>+        my $pdftable = PDF::Table->new();
>         my $abaskets;
>         my $arrbasket;
>         my @keys = ('Document', 'QtÃ©', 'Prix', 'Prix net', '% Remise', 'Remise', 'Taux TVA', 'Total HT', 'Total TTC');
>@@ -201,7 +201,7 @@ sub printbaskets {
>     $text->font( $pdf->corefont("Times", -encoding => "utf8"), 6/mm );
>     $text->translate(30/mm,  ($height-28.5)/mm);
>     $text->text($libraryname);
>-    my $pdftable = new PDF::Table();
>+    my $pdftable = PDF::Table->new();
>     my $abaskets;
>     my $arrbasket;
>     # header of the table
>diff --git a/about.pl b/about.pl
>index 68abd8cab64..bade1ea0ae7 100755
>--- a/about.pl
>+++ b/about.pl
>@@ -60,7 +60,7 @@ use C4::Members::Statistics;
> 
> #use Smart::Comments '####';
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {
>         template_name   => "about.tt",
>@@ -208,7 +208,7 @@ my $warnNoActiveCurrency = (! defined Koha::Acquisition::Currencies->get_active)
> 
> my @xml_config_warnings;
> 
>-my $context = new C4::Context;
>+my $context = C4::Context->new;
> 
> if (    C4::Context->config('zebra_bib_index_mode')
>     and C4::Context->config('zebra_bib_index_mode') eq 'grs1' )
>diff --git a/acqui/add_user_search.pl b/acqui/add_user_search.pl
>index 8301f9aff05..a81053da1ac 100755
>--- a/acqui/add_user_search.pl
>+++ b/acqui/add_user_search.pl
>@@ -26,7 +26,7 @@ use C4::Members;
> 
> use Koha::Patron::Categories;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> my $dbh = C4::Context->dbh;
> 
>diff --git a/acqui/addorder.pl b/acqui/addorder.pl
>index 049d8ad1e72..b9915e6aece 100755
>--- a/acqui/addorder.pl
>+++ b/acqui/addorder.pl
>@@ -135,7 +135,7 @@ use C4::Barcodes;
> # FIXME: This needs to do actual error checking and possibly return user to the same form,
> # not just blindly call C4 functions and print a redirect.  
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> my $use_ACQ_framework = $input->param('use_ACQ_framework');
> 
> # Check if order total amount exceed allowed budget
>diff --git a/acqui/addorderiso2709.pl b/acqui/addorderiso2709.pl
>index acc386192cb..af2af987b24 100755
>--- a/acqui/addorderiso2709.pl
>+++ b/acqui/addorderiso2709.pl
>@@ -50,7 +50,7 @@ use Koha::Acquisition::Orders;
> use Koha::Acquisition::Booksellers;
> use Koha::Patrons;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> my ($template, $loggedinuser, $cookie, $userflags) = get_template_and_user({
>     template_name => "acqui/addorderiso2709.tt",
>     query => $input,
>diff --git a/acqui/ajax-getauthvaluedropbox.pl b/acqui/ajax-getauthvaluedropbox.pl
>index d82d4a59c19..2693a250426 100755
>--- a/acqui/ajax-getauthvaluedropbox.pl
>+++ b/acqui/ajax-getauthvaluedropbox.pl
>@@ -62,7 +62,7 @@ unless ($status eq "ok") {
>     exit 0;
> }
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> my $name = $input->param('name');
> my $category = $input->param('category');
> my $default = $input->param('default');
>diff --git a/acqui/basket.pl b/acqui/basket.pl
>index 7d1687996f0..a53160d70ad 100755
>--- a/acqui/basket.pl
>+++ b/acqui/basket.pl
>@@ -74,7 +74,7 @@ the supplier this script have to display the basket.
> 
> =cut
> 
>-our $query        = new CGI;
>+our $query        = CGI->new;
> our $basketno     = $query->param('basketno');
> our $ean          = $query->param('ean');
> our $booksellerid = $query->param('booksellerid');
>diff --git a/acqui/basketgroup.pl b/acqui/basketgroup.pl
>index db63b3faea1..3b53bd9602b 100755
>--- a/acqui/basketgroup.pl
>+++ b/acqui/basketgroup.pl
>@@ -59,7 +59,7 @@ use Koha::Acquisition::Booksellers;
> use Koha::ItemTypes;
> use Koha::Patrons;
> 
>-our $input=new CGI;
>+our $input=CGI->new;
> 
> our ($template, $loggedinuser, $cookie)
>     = get_template_and_user({template_name => "acqui/basketgroup.tt",
>diff --git a/acqui/basketheader.pl b/acqui/basketheader.pl
>index 737f94cf6f9..f06900ce85b 100755
>--- a/acqui/basketheader.pl
>+++ b/acqui/basketheader.pl
>@@ -57,7 +57,7 @@ use Koha::Acquisition::Booksellers;
> use Koha::Acquisition::Baskets;
> use Koha::AdditionalFields;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {
>         template_name   => "acqui/basketheader.tt",
>diff --git a/acqui/cancelorder.pl b/acqui/cancelorder.pl
>index 71deb630dcd..84d03485b51 100755
>--- a/acqui/cancelorder.pl
>+++ b/acqui/cancelorder.pl
>@@ -37,7 +37,7 @@ use C4::Output;
> use C4::Acquisition;
> use Koha::Acquisition::Baskets;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( {
>     template_name   => 'acqui/cancelorder.tt',
>     query           => $input,
>diff --git a/acqui/check_budget_total.pl b/acqui/check_budget_total.pl
>index c45360eabe6..b502a1dd626 100755
>--- a/acqui/check_budget_total.pl
>+++ b/acqui/check_budget_total.pl
>@@ -30,7 +30,7 @@ fetches the budget amount fron the DB
> 
> =cut
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> my $budget_id = $input->param('budget_id');
> my $total   = $input->param('total');
> 
>diff --git a/acqui/check_uniqueness.pl b/acqui/check_uniqueness.pl
>index 8b36e68af68..37c4a22204e 100755
>--- a/acqui/check_uniqueness.pl
>+++ b/acqui/check_uniqueness.pl
>@@ -36,7 +36,7 @@ use JSON;
> use C4::Output;
> use C4::Items;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> my @field = $input->multi_param('field[]');
> my @value = $input->multi_param('value[]');
> 
>diff --git a/acqui/duplicate_orders.pl b/acqui/duplicate_orders.pl
>index 6db9018b738..7bbefea2ead 100755
>--- a/acqui/duplicate_orders.pl
>+++ b/acqui/duplicate_orders.pl
>@@ -30,7 +30,7 @@ use Koha::Acquisition::Currencies;
> use Koha::Acquisition::Orders;
> use Koha::DateUtils qw(dt_from_string output_pref);
> 
>-my $input    = new CGI;
>+my $input    = CGI->new;
> my $basketno = $input->param('basketno');
> my $op       = $input->param('op') || 'search';    # search, select, batch_edit
> 
>diff --git a/acqui/finishreceive.pl b/acqui/finishreceive.pl
>index a6519703c60..0ed88506c7f 100755
>--- a/acqui/finishreceive.pl
>+++ b/acqui/finishreceive.pl
>@@ -36,7 +36,7 @@ use Koha::Acquisition::Orders;
> 
> use List::MoreUtils qw/any/;
> 
>-my $input=new CGI;
>+my $input=CGI->new;
> my $flagsrequired = {acquisition => 'order_receive'};
> 
> checkauth($input, 0, $flagsrequired, 'intranet');
>diff --git a/acqui/histsearch.pl b/acqui/histsearch.pl
>index 64802dddaa3..7635ba2f1ae 100755
>--- a/acqui/histsearch.pl
>+++ b/acqui/histsearch.pl
>@@ -59,7 +59,7 @@ use C4::Koha;
> use Koha::AdditionalFields;
> use Koha::DateUtils;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> my $do_search               = $input->param('do_search') || 0;
> 
> my $dbh = C4::Context->dbh;
>diff --git a/acqui/invoice-files.pl b/acqui/invoice-files.pl
>index 8aa517ce11e..d80ee02d7ef 100755
>--- a/acqui/invoice-files.pl
>+++ b/acqui/invoice-files.pl
>@@ -35,7 +35,7 @@ use C4::Output;
> use C4::Acquisition;
> use Koha::Misc::Files;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> my ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user(
>     {
>         template_name   => 'acqui/invoice-files.tt',
>diff --git a/acqui/invoice.pl b/acqui/invoice.pl
>index d8a60082892..38577469c1b 100755
>--- a/acqui/invoice.pl
>+++ b/acqui/invoice.pl
>@@ -40,7 +40,7 @@ use Koha::DateUtils;
> use Koha::Misc::Files;
> use Koha::Acquisition::Invoice::Adjustments;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> my ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user(
>     {
>         template_name   => 'acqui/invoice.tt',
>diff --git a/acqui/lateorders-export.pl b/acqui/lateorders-export.pl
>index 7cdc18a556e..57a080dbd31 100755
>--- a/acqui/lateorders-export.pl
>+++ b/acqui/lateorders-export.pl
>@@ -24,7 +24,7 @@ use C4::Acquisition;
> use C4::Output;
> use C4::Context;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> my ($template, $loggedinuser, $cookie) = get_template_and_user({
>     template_name => "acqui/csv/lateorders.tt",
>     query => $input,
>diff --git a/acqui/lateorders.pl b/acqui/lateorders.pl
>index bd03be46fdf..be12b3253b7 100755
>--- a/acqui/lateorders.pl
>+++ b/acqui/lateorders.pl
>@@ -55,7 +55,7 @@ use Koha::DateUtils;
> use Koha::Acquisition::Orders;
> use Koha::CsvProfiles;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> my ($template, $loggedinuser, $cookie) = get_template_and_user(
>     {
>         template_name   => "acqui/lateorders.tt",
>diff --git a/acqui/modordernotes.pl b/acqui/modordernotes.pl
>index 7801c7f911a..ab7817eb700 100755
>--- a/acqui/modordernotes.pl
>+++ b/acqui/modordernotes.pl
>@@ -35,7 +35,7 @@ use C4::Acquisition;
> 
> use Koha::Acquisition::Booksellers;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( {
>     template_name   => 'acqui/modordernotes.tt',
>     query           => $input,
>diff --git a/acqui/neworderempty.pl b/acqui/neworderempty.pl
>index 676bc980395..75624751fe1 100755
>--- a/acqui/neworderempty.pl
>+++ b/acqui/neworderempty.pl
>@@ -94,7 +94,7 @@ use Koha::Patrons;
> use Koha::RecordProcessor;
> use Koha::Subscriptions;
> 
>-our $input           = new CGI;
>+our $input           = CGI->new;
> my $booksellerid    = $input->param('booksellerid');	# FIXME: else ERROR!
> my $budget_id       = $input->param('budget_id') || 0;
> my $title           = $input->param('title');
>diff --git a/acqui/newordersubscription.pl b/acqui/newordersubscription.pl
>index db14455c88e..7d3e8ba40d7 100755
>--- a/acqui/newordersubscription.pl
>+++ b/acqui/newordersubscription.pl
>@@ -27,7 +27,7 @@ use C4::Serials;
> 
> use Koha::Acquisition::Booksellers;
> 
>-my $query        = new CGI;
>+my $query        = CGI->new;
> my $title        = $query->param('title_filter');
> my $ISSN         = $query->param('ISSN_filter');
> my $EAN          = $query->param('EAN_filter');
>diff --git a/acqui/newordersuggestion.pl b/acqui/newordersuggestion.pl
>index 54934967abb..f43e201c069 100755
>--- a/acqui/newordersuggestion.pl
>+++ b/acqui/newordersuggestion.pl
>@@ -99,7 +99,7 @@ use C4::Budgets;
> 
> use Koha::Acquisition::Booksellers;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> # getting the CGI params
> my $basketno        = $input->param('basketno');
>diff --git a/acqui/ordered.pl b/acqui/ordered.pl
>index a3b3436049a..20be8a04622 100755
>--- a/acqui/ordered.pl
>+++ b/acqui/ordered.pl
>@@ -36,7 +36,7 @@ use Koha::Acquisition::Invoice::Adjustments;
> use C4::Acquisition;
> 
> my $dbh     = C4::Context->dbh;
>-my $input   = new CGI;
>+my $input   = CGI->new;
> my $fund_id = $input->param('fund');
> my $fund_code = $input->param('fund_code');
> 
>diff --git a/acqui/orderreceive.pl b/acqui/orderreceive.pl
>index 022c5e9ec9c..2b54b62416a 100755
>--- a/acqui/orderreceive.pl
>+++ b/acqui/orderreceive.pl
>@@ -79,7 +79,7 @@ use Koha::DateUtils qw( dt_from_string );
> use Koha::ItemTypes;
> use Koha::Patrons;
> 
>-my $input      = new CGI;
>+my $input      = CGI->new;
> 
> my $dbh          = C4::Context->dbh;
> my $invoiceid    = $input->param('invoiceid');
>diff --git a/acqui/parcel.pl b/acqui/parcel.pl
>index 4ff5ba51334..d6024a0bf6b 100755
>--- a/acqui/parcel.pl
>+++ b/acqui/parcel.pl
>@@ -74,7 +74,7 @@ use Koha::Biblios;
> 
> use JSON;
> 
>-my $input=new CGI;
>+my $input=CGI->new;
> my $sticky_filters = $input->param('sticky_filters') || 0;
> 
> my ($template, $loggedinuser, $cookie)
>diff --git a/acqui/showorder.pl b/acqui/showorder.pl
>index fe434c9cecd..89255c94e71 100755
>--- a/acqui/showorder.pl
>+++ b/acqui/showorder.pl
>@@ -24,7 +24,7 @@ use C4::Output;
> use Koha::Acquisition::Orders;
> use Koha::Patrons;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user({
>     template_name   => "acqui/showorder.tt",
>     query           => $cgi,
>diff --git a/acqui/spent.pl b/acqui/spent.pl
>index e69f41e9e43..938ca90ccd6 100755
>--- a/acqui/spent.pl
>+++ b/acqui/spent.pl
>@@ -38,7 +38,7 @@ use C4::Acquisition;
> use Koha::Acquisition::Invoice::Adjustments;
> 
> my $dbh      = C4::Context->dbh;
>-my $input    = new CGI;
>+my $input    = CGI->new;
> my $bookfund = $input->param('fund');
> my $fund_code = $input->param('fund_code');
> 
>diff --git a/acqui/transferorder.pl b/acqui/transferorder.pl
>index 6eeafdb12ec..433821b5874 100755
>--- a/acqui/transferorder.pl
>+++ b/acqui/transferorder.pl
>@@ -28,7 +28,7 @@ use C4::Context;
> use C4::Acquisition;
> use Koha::Acquisition::Booksellers;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {   template_name   => "acqui/transferorder.tt",
>         query           => $input,
>diff --git a/acqui/uncertainprice.pl b/acqui/uncertainprice.pl
>index 93f79753812..ac2964ebbe9 100755
>--- a/acqui/uncertainprice.pl
>+++ b/acqui/uncertainprice.pl
>@@ -55,7 +55,7 @@ use C4::Biblio qw/GetBiblioData/;
> use Koha::Acquisition::Booksellers;
> use Koha::Acquisition::Baskets;
> 
>-my $input=new CGI;
>+my $input=CGI->new;
> 
> my ($template, $loggedinuser, $cookie)
>     = get_template_and_user({template_name => "acqui/uncertainprice.tt",
>diff --git a/acqui/updatesupplier.pl b/acqui/updatesupplier.pl
>index 5b077f171e0..60c65e49674 100755
>--- a/acqui/updatesupplier.pl
>+++ b/acqui/updatesupplier.pl
>@@ -58,7 +58,7 @@ use Koha::Acquisition::Bookseller::Contacts;
> use Koha::Acquisition::Booksellers;
> use CGI qw ( -utf8 );
> 
>-my $input=new CGI;
>+my $input=CGI->new;
> 
> checkauth( $input, 0, { acquisition => 'vendors_manage' }, 'intranet' );
> 
>diff --git a/acqui/z3950_search.pl b/acqui/z3950_search.pl
>index adb9890a904..10399d57551 100755
>--- a/acqui/z3950_search.pl
>+++ b/acqui/z3950_search.pl
>@@ -31,7 +31,7 @@ use C4::Koha;
> use Koha::Acquisition::Booksellers;
> use Koha::BiblioFrameworks;
> 
>-my $input           = new CGI;
>+my $input           = CGI->new;
> my $biblionumber    = $input->param('biblionumber')||0;
> my $frameworkcode   = $input->param('frameworkcode') || q{};
> my $title           = $input->param('title');
>diff --git a/admin/add_user_search.pl b/admin/add_user_search.pl
>index d31cf11355f..5d3b5de6613 100755
>--- a/admin/add_user_search.pl
>+++ b/admin/add_user_search.pl
>@@ -26,7 +26,7 @@ use C4::Members;
> 
> use Koha::Patron::Categories;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> my $dbh = C4::Context->dbh;
> 
>diff --git a/admin/additional-fields.pl b/admin/additional-fields.pl
>index a7b4ffe7014..e124878dd55 100755
>--- a/admin/additional-fields.pl
>+++ b/admin/additional-fields.pl
>@@ -23,7 +23,7 @@ use C4::Koha;
> use C4::Output;
> use Koha::AdditionalFields;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> my %flagsrequired;
> $flagsrequired{parameters} = 'manage_additional_fields';
>diff --git a/admin/admin-home.pl b/admin/admin-home.pl
>index 785901d8f40..23c92f3b4cf 100755
>--- a/admin/admin-home.pl
>+++ b/admin/admin-home.pl
>@@ -22,7 +22,7 @@ use C4::Auth;
> use C4::Output;
> use Koha::Plugins;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> 
> my $plugins_enabled = C4::Context->config("enable_plugins");
> my $mana_url        = C4::Context->config('mana_config');
>diff --git a/admin/adveditorshortcuts.pl b/admin/adveditorshortcuts.pl
>index abd315ec8e6..5910d3fd86a 100755
>--- a/admin/adveditorshortcuts.pl
>+++ b/admin/adveditorshortcuts.pl
>@@ -43,7 +43,7 @@ use CGI qw ( -utf8 );
> use C4::Koha;
> use Koha::KeyboardShortcuts;
> 
>-my $input            = new CGI;
>+my $input            = CGI->new;
> my $op               = $input->param('op') || 'list';
> 
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>diff --git a/admin/aqbudgetperiods.pl b/admin/aqbudgetperiods.pl
>index 39588d626c0..c96170dddf0 100755
>--- a/admin/aqbudgetperiods.pl
>+++ b/admin/aqbudgetperiods.pl
>@@ -61,7 +61,7 @@ use Koha::Acquisition::Currencies;
> 
> my $dbh = C4::Context->dbh;
> 
>-my $input       = new CGI;
>+my $input       = CGI->new;
> 
> my $searchfield          = $input->param('searchfield') // '';
> my $budget_period_id     = $input->param('budget_period_id');
>diff --git a/admin/aqbudgets.pl b/admin/aqbudgets.pl
>index b9ba3b5855a..16f62c5e79c 100755
>--- a/admin/aqbudgets.pl
>+++ b/admin/aqbudgets.pl
>@@ -36,7 +36,7 @@ use C4::Debug;
> use Koha::Acquisition::Currencies;
> use Koha::Patrons;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> my $dbh     = C4::Context->dbh;
> 
> my ($template, $borrowernumber, $cookie, $staffflags ) = get_template_and_user(
>diff --git a/admin/aqcontract.pl b/admin/aqcontract.pl
>index e942ae4d31c..9bd4d474814 100755
>--- a/admin/aqcontract.pl
>+++ b/admin/aqcontract.pl
>@@ -30,7 +30,7 @@ use Koha::DateUtils;
> 
> use Koha::Acquisition::Booksellers;
> 
>-my $input          = new CGI;
>+my $input          = CGI->new;
> my $contractnumber = $input->param('contractnumber');
> my $booksellerid   = $input->param('booksellerid');
> my $op             = $input->param('op') || 'list';
>diff --git a/admin/aqplan.pl b/admin/aqplan.pl
>index d602513a36e..95ddb365200 100755
>--- a/admin/aqplan.pl
>+++ b/admin/aqplan.pl
>@@ -36,7 +36,7 @@ use C4::Auth;
> use C4::Debug;
> use Koha::Acquisition::Currencies;
> 
>-our $input = new CGI;
>+our $input = CGI->new;
> ####  $input
> 
> my $dbh = C4::Context->dbh;
>diff --git a/admin/audio_alerts.pl b/admin/audio_alerts.pl
>index 7cbad60242e..793d2d1eeac 100755
>--- a/admin/audio_alerts.pl
>+++ b/admin/audio_alerts.pl
>@@ -25,7 +25,7 @@ use C4::Output;
> use Koha::AudioAlert;
> use Koha::AudioAlerts;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> my $selector = $cgi->param('selector');
> my $sound    = $cgi->param('sound');
>diff --git a/admin/auth_subfields_structure.pl b/admin/auth_subfields_structure.pl
>index 1115a9f361d..c68a8aa28e1 100755
>--- a/admin/auth_subfields_structure.pl
>+++ b/admin/auth_subfields_structure.pl
>@@ -48,7 +48,7 @@ sub auth_subfield_structure_exists {
> 	return @$rows > 0;
> }
> 
>-my $input        = new CGI;
>+my $input        = CGI->new;
> my $tagfield     = $input->param('tagfield');
> my $tagsubfield  = $input->param('tagsubfield');
> my $authtypecode = $input->param('authtypecode');
>diff --git a/admin/auth_tag_structure.pl b/admin/auth_tag_structure.pl
>index 311b52d7510..a034d6fbbf9 100755
>--- a/admin/auth_tag_structure.pl
>+++ b/admin/auth_tag_structure.pl
>@@ -29,7 +29,7 @@ use C4::Context;
> use Koha::Authority::Types;
> 
> # retrieve parameters
>-my $input = new CGI;
>+my $input = CGI->new;
> my $authtypecode         = $input->param('authtypecode')         || '';    # set to select framework
> my $existingauthtypecode = $input->param('existingauthtypecode') || '';    # set when we have to create a new framework (in authtype) by copying an old one (in existingauthtype)
> 
>diff --git a/admin/authorised_values.pl b/admin/authorised_values.pl
>index 6f365e670a1..62cabcc1b32 100755
>--- a/admin/authorised_values.pl
>+++ b/admin/authorised_values.pl
>@@ -31,7 +31,7 @@ use Koha::AuthorisedValues;
> use Koha::AuthorisedValueCategories;
> use Koha::Libraries;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> my $id          = $input->param('id');
> my $op          = $input->param('op') || 'list';
> my $searchfield = $input->param('searchfield');
>diff --git a/admin/authtypes.pl b/admin/authtypes.pl
>index 4141c68d408..4d032cfc03c 100755
>--- a/admin/authtypes.pl
>+++ b/admin/authtypes.pl
>@@ -28,7 +28,7 @@ use C4::Output;
> use Koha::Authorities;
> use Koha::Authority::Types;
> 
>-my $input        = new CGI;
>+my $input        = CGI->new;
> my $authtypecode = $input->param('authtypecode');
> my $op           = $input->param('op') || 'list';
> my @messages;
>diff --git a/admin/biblio_framework.pl b/admin/biblio_framework.pl
>index f3bd4435f96..20e40ef3b75 100755
>--- a/admin/biblio_framework.pl
>+++ b/admin/biblio_framework.pl
>@@ -28,7 +28,7 @@ use Koha::BiblioFramework;
> use Koha::BiblioFrameworks;
> use Koha::Caches;
> 
>-my $input         = new CGI;
>+my $input         = CGI->new;
> my $frameworkcode = $input->param('frameworkcode') || q||;
> my $op            = $input->param('op') || q|list|;
> my $cache         = Koha::Caches->get_instance();
>diff --git a/admin/branch_transfer_limits.pl b/admin/branch_transfer_limits.pl
>index 82a8d214c9c..94a348e1206 100755
>--- a/admin/branch_transfer_limits.pl
>+++ b/admin/branch_transfer_limits.pl
>@@ -27,7 +27,7 @@ use C4::Output;
> use C4::Koha;
> use C4::Circulation qw{ IsBranchTransferAllowed DeleteBranchTransferLimits CreateBranchTransferLimit };
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> my ($template, $loggedinuser, $cookie)
>     = get_template_and_user({template_name => "admin/branch_transfer_limits.tt",
>diff --git a/admin/categories.pl b/admin/categories.pl
>index 749db2d0a0a..9bf5d365a1e 100755
>--- a/admin/categories.pl
>+++ b/admin/categories.pl
>@@ -31,7 +31,7 @@ use Koha::DateUtils;
> use Koha::Patron::Categories;
> use Koha::Libraries;
> 
>-my $input         = new CGI;
>+my $input         = CGI->new;
> my $searchfield   = $input->param('description') // q||;
> my $categorycode  = $input->param('categorycode');
> my $op            = $input->param('op') // 'list';
>diff --git a/admin/check_budget_parent.pl b/admin/check_budget_parent.pl
>index c82e6842456..a80c55d1035 100755
>--- a/admin/check_budget_parent.pl
>+++ b/admin/check_budget_parent.pl
>@@ -31,7 +31,7 @@ called by aqbudgets.pl and neworderempty.pl
> 
> =cut
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> my $budget_id     = $input->param('budget_id');
> my $new_parent_id = $input->param('new_parent');
>diff --git a/admin/check_parent_total.pl b/admin/check_parent_total.pl
>index 72f3b5ef06f..49d4ba7be8a 100755
>--- a/admin/check_parent_total.pl
>+++ b/admin/check_parent_total.pl
>@@ -34,7 +34,7 @@ to determine whether the new parent budget (or period) has enough unallocated fu
> =cut
> 
> my $dbh = C4::Context->dbh;
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> my $total     = $input->param('total');
> my $budget_id = $input->param('budget_id');
>diff --git a/admin/checkmarc.pl b/admin/checkmarc.pl
>index 174f0f90e6d..d492374184d 100755
>--- a/admin/checkmarc.pl
>+++ b/admin/checkmarc.pl
>@@ -26,7 +26,7 @@ use C4::Context;
> use C4::Biblio;
> 
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> my ($template, $borrowernumber, $cookie)
>     = get_template_and_user({template_name => "admin/checkmarc.tt",
>diff --git a/admin/cities.pl b/admin/cities.pl
>index f5fa45fd202..eda3dc1d06e 100755
>--- a/admin/cities.pl
>+++ b/admin/cities.pl
>@@ -26,7 +26,7 @@ use C4::Output;
> 
> use Koha::Cities;
> 
>-my $input       = new CGI;
>+my $input       = CGI->new;
> my $city_name_filter = $input->param('city_name_filter') // q||;
> my $cityid      = $input->param('cityid');
> my $op          = $input->param('op') || 'list';
>diff --git a/admin/classsources.pl b/admin/classsources.pl
>index a937f7bc184..02b3e0e4494 100755
>--- a/admin/classsources.pl
>+++ b/admin/classsources.pl
>@@ -33,7 +33,7 @@ use Koha::ClassSplitRules;
> 
> my $script_name = "/cgi-bin/koha/admin/classsources.pl";
> 
>-my $input            = new CGI;
>+my $input            = CGI->new;
> my $op               = $input->param('op') || 'list';
> my $cn_source        = $input->param('cn_source');
> my $class_sort_rule  = $input->param('class_sort_rule');
>diff --git a/admin/clone-rules.pl b/admin/clone-rules.pl
>index 76472d0c0ef..7592c4da60d 100755
>--- a/admin/clone-rules.pl
>+++ b/admin/clone-rules.pl
>@@ -34,7 +34,7 @@ use C4::Koha;
> use C4::Debug;
> use Koha::CirculationRules;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> my ($template, $loggedinuser, $cookie)
>     = get_template_and_user({template_name => "admin/clone-rules.tt",
>diff --git a/admin/columns_settings.pl b/admin/columns_settings.pl
>index f0a673434d0..9d19808eafd 100755
>--- a/admin/columns_settings.pl
>+++ b/admin/columns_settings.pl
>@@ -7,7 +7,7 @@ use C4::Auth;
> use C4::Context;
> use C4::Output;
> use C4::Utils::DataTables::TablesSettings qw( get_modules );
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {
>diff --git a/admin/credit_types.pl b/admin/credit_types.pl
>index 40ced7d8dab..848a00b73e8 100755
>--- a/admin/credit_types.pl
>+++ b/admin/credit_types.pl
>@@ -28,7 +28,7 @@ use C4::Output;
> use Koha::Account::CreditType;
> use Koha::Account::CreditTypes;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> my $code  = $input->param('code');
> my $op    = $input->param('op') || 'list';
> my @messages;
>diff --git a/admin/debit_types.pl b/admin/debit_types.pl
>index df268cd72db..5f7081d09e6 100755
>--- a/admin/debit_types.pl
>+++ b/admin/debit_types.pl
>@@ -28,7 +28,7 @@ use C4::Output;
> use Koha::Account::DebitType;
> use Koha::Account::DebitTypes;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> my $code  = $input->param('code');
> my $op    = $input->param('op') || 'list';
> my @messages;
>diff --git a/admin/desks.pl b/admin/desks.pl
>index 4fee4770f71..352ff8ba50b 100755
>--- a/admin/desks.pl
>+++ b/admin/desks.pl
>@@ -26,7 +26,7 @@ use C4::Output;
> 
> use Koha::Desks;
> 
>-my $input       = new CGI;
>+my $input       = CGI->new;
> my $searchfield = $input->param('desk_name') // q||;
> my $desk_id      = $input->param('desk_id') || '';
> my $op          = $input->param('op') || 'list';
>diff --git a/admin/didyoumean.pl b/admin/didyoumean.pl
>index 59078c39dd6..9ac72dd51e9 100755
>--- a/admin/didyoumean.pl
>+++ b/admin/didyoumean.pl
>@@ -9,7 +9,7 @@ use Koha::SuggestionEngine;
> use Module::Load::Conditional qw(can_load);
> use JSON;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> my ($template, $loggedinuser, $cookie)
>     = get_template_and_user({template_name => "admin/didyoumean.tt",
>diff --git a/admin/import_export_framework.pl b/admin/import_export_framework.pl
>index a1a05f9eae6..bd5ee8331b0 100755
>--- a/admin/import_export_framework.pl
>+++ b/admin/import_export_framework.pl
>@@ -38,7 +38,7 @@ if ($auth_status eq 'ok') {
>     $authenticated = 1;
> }
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> unless ($authenticated) {
>     print $input->header(-type => 'text/plain', -status => '403 Forbidden');
>diff --git a/admin/item_circulation_alerts.pl b/admin/item_circulation_alerts.pl
>index 940356f785a..3a93cba336e 100755
>--- a/admin/item_circulation_alerts.pl
>+++ b/admin/item_circulation_alerts.pl
>@@ -111,7 +111,7 @@ sub dispatch {
>         show   => \&show,
>         toggle => \&toggle,
>     );
>-    my $input  = new CGI;
>+    my $input  = CGI->new;
>     my $action = $input->param('action') || 'show';
>     if (not exists $handler{$action}) {
>         my $status = 400;
>diff --git a/admin/items_search_field.pl b/admin/items_search_field.pl
>index 88bf4014ccd..ab48babd865 100755
>--- a/admin/items_search_field.pl
>+++ b/admin/items_search_field.pl
>@@ -24,7 +24,7 @@ use C4::Output;
> 
> use Koha::Item::Search::Field qw(GetItemSearchField ModItemSearchField);
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> my ($template, $borrowernumber, $cookie) = get_template_and_user({
>     template_name => 'admin/items_search_field.tt',
>diff --git a/admin/items_search_fields.pl b/admin/items_search_fields.pl
>index 0923f574117..ac2548642b2 100755
>--- a/admin/items_search_fields.pl
>+++ b/admin/items_search_fields.pl
>@@ -24,7 +24,7 @@ use C4::Output;
> 
> use Koha::Item::Search::Field qw(AddItemSearchField GetItemSearchFields DelItemSearchField);
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> my ($template, $borrowernumber, $cookie) = get_template_and_user({
>     template_name => 'admin/items_search_fields.tt',
>diff --git a/admin/itemtypes.pl b/admin/itemtypes.pl
>index ff9bdad9299..07866f72fb6 100755
>--- a/admin/itemtypes.pl
>+++ b/admin/itemtypes.pl
>@@ -35,7 +35,7 @@ use Koha::ItemTypes;
> use Koha::ItemType;
> use Koha::Localizations;
> 
>-my $input         = new CGI;
>+my $input         = CGI->new;
> my $searchfield   = $input->param('description');
> my $itemtype_code = $input->param('itemtype');
> my $op            = $input->param('op') // 'list';
>diff --git a/admin/koha2marclinks.pl b/admin/koha2marclinks.pl
>index d26f6e50844..5c679b885ca 100755
>--- a/admin/koha2marclinks.pl
>+++ b/admin/koha2marclinks.pl
>@@ -29,7 +29,7 @@ use Koha::BiblioFrameworks;
> use Koha::Caches;
> use Koha::MarcSubfieldStructures;
> 
>-my $input       = new CGI;
>+my $input       = CGI->new;
> 
> my ( $template, $borrowernumber, $cookie ) = get_template_and_user (
>     {
>diff --git a/admin/library_groups.pl b/admin/library_groups.pl
>index e8a02c49791..ec7064504d6 100755
>--- a/admin/library_groups.pl
>+++ b/admin/library_groups.pl
>@@ -27,7 +27,7 @@ use Koha::Libraries;
> use Koha::Library::Group;
> use Koha::Library::Groups;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {
>diff --git a/admin/localization.pl b/admin/localization.pl
>index e21a6346a9f..81272d8c903 100755
>--- a/admin/localization.pl
>+++ b/admin/localization.pl
>@@ -26,7 +26,7 @@ use Koha::Localizations;
> 
> use CGI qw( -utf8 );
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> 
> my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
>     {   template_name   => "admin/localization.tt",
>diff --git a/admin/marc_subfields_structure.pl b/admin/marc_subfields_structure.pl
>index 1a35130f725..63ae97732dd 100755
>--- a/admin/marc_subfields_structure.pl
>+++ b/admin/marc_subfields_structure.pl
>@@ -61,7 +61,7 @@ sub marc_subfield_structure_exists {
>     return @$rows > 0;
> }
> 
>-my $input         = new CGI;
>+my $input         = CGI->new;
> my $tagfield      = $input->param('tagfield');
> my $tagsubfield   = $input->param('tagsubfield');
> my $frameworkcode = $input->param('frameworkcode');
>diff --git a/admin/marctagstructure.pl b/admin/marctagstructure.pl
>index e53a339a279..68aeaa0f6a6 100755
>--- a/admin/marctagstructure.pl
>+++ b/admin/marctagstructure.pl
>@@ -31,7 +31,7 @@ use Koha::AuthorisedValues;
> use Koha::BiblioFrameworks;
> 
> # retrieve parameters
>-my $input = new CGI;
>+my $input = CGI->new;
> my $frameworkcode         = $input->param('frameworkcode')         || ''; # set to select framework
> my $existingframeworkcode = $input->param('existingframeworkcode') || '';
> my $searchfield           = $input->param('searchfield') || 0;
>diff --git a/admin/matching-rules.pl b/admin/matching-rules.pl
>index f6f87701358..eb308dde4aa 100755
>--- a/admin/matching-rules.pl
>+++ b/admin/matching-rules.pl
>@@ -29,7 +29,7 @@ use C4::Matcher qw/valid_normalization_routines/;
> 
> my $script_name = "/cgi-bin/koha/admin/matching-rules.pl";
> 
>-our $input = new CGI;
>+our $input = CGI->new;
> my $op = $input->param('op') || '';
> 
> 
>diff --git a/admin/oai_set_mappings.pl b/admin/oai_set_mappings.pl
>index c24dceb2358..d322494f5ca 100755
>--- a/admin/oai_set_mappings.pl
>+++ b/admin/oai_set_mappings.pl
>@@ -39,7 +39,7 @@ use C4::OAI::Sets;
> 
> use Data::Dumper;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( {
>     template_name   => 'admin/oai_set_mappings.tt',
>     query           => $input,
>diff --git a/admin/oai_sets.pl b/admin/oai_sets.pl
>index 4f2a6409055..5f241856d1a 100755
>--- a/admin/oai_sets.pl
>+++ b/admin/oai_sets.pl
>@@ -35,7 +35,7 @@ use C4::OAI::Sets;
> 
> use Data::Dumper;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( {
>     template_name   => 'admin/oai_sets.tt',
>     query           => $input,
>diff --git a/admin/patron-attr-types.pl b/admin/patron-attr-types.pl
>index cc6dcdfe766..af582431934 100755
>--- a/admin/patron-attr-types.pl
>+++ b/admin/patron-attr-types.pl
>@@ -36,7 +36,7 @@ use Koha::Patron::Categories;
> 
> my $script_name = "/cgi-bin/koha/admin/patron-attr-types.pl";
> 
>-our $input = new CGI;
>+our $input = CGI->new;
> my $op = $input->param('op') || '';
> 
> 
>diff --git a/admin/preferences.pl b/admin/preferences.pl
>index 6900425d6e2..a39b6dd8f95 100755
>--- a/admin/preferences.pl
>+++ b/admin/preferences.pl
>@@ -222,7 +222,7 @@ sub _get_pref_files {
>     foreach my $file ( glob( "$htdocs/$theme/$lang/modules/admin/preferences/*.pref" ) ) {
>         my ( $tab ) = ( $file =~ /([a-z0-9_-]+)\.pref$/ );
> 
>-        $results{$tab} = $open_files ? new IO::File( $file, 'r' ) : '';
>+        $results{$tab} = $open_files ? IO::File->new( $file, 'r' ) : '';
>     }
> 
>     return %results;
>@@ -301,7 +301,7 @@ sub matches {
> }
> 
> my $dbh = C4::Context->dbh;
>-our $input = new CGI;
>+our $input = CGI->new;
> 
> my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
>     {   template_name   => "admin/preferences.tt",
>diff --git a/admin/searchengine/elasticsearch/mappings.pl b/admin/searchengine/elasticsearch/mappings.pl
>index 04440abc9b5..88b83416042 100755
>--- a/admin/searchengine/elasticsearch/mappings.pl
>+++ b/admin/searchengine/elasticsearch/mappings.pl
>@@ -32,7 +32,7 @@ use Try::Tiny;
> use Module::Load::Conditional qw(can_load);
> 
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
>     {
>         template_name   => 'admin/searchengine/elasticsearch/mappings.tt',
>diff --git a/admin/share_content.pl b/admin/share_content.pl
>index dbd2c50471f..0996f16c07c 100755
>--- a/admin/share_content.pl
>+++ b/admin/share_content.pl
>@@ -26,7 +26,7 @@ use C4::Output;
> 
> use Koha::SharedContent;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {
>         template_name   => "admin/share_content.tt",
>diff --git a/admin/sms_providers.pl b/admin/sms_providers.pl
>index 007e001feb1..7c39c30c356 100755
>--- a/admin/sms_providers.pl
>+++ b/admin/sms_providers.pl
>@@ -28,7 +28,7 @@ use C4::Output;
> use Koha::SMS::Provider;
> use Koha::SMS::Providers;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {
>diff --git a/admin/sru_modmapping.pl b/admin/sru_modmapping.pl
>index d798eea19dd..298a4f57897 100755
>--- a/admin/sru_modmapping.pl
>+++ b/admin/sru_modmapping.pl
>@@ -24,7 +24,7 @@ use C4::Output;
> 
> # Initialize CGI, template
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> my $mapstr = $input->param('mapping')//'';
> my $type = $input->param('type')//'';
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user( {
>diff --git a/admin/systempreferences.pl b/admin/systempreferences.pl
>index 97dee3c6c35..c232bb139f5 100755
>--- a/admin/systempreferences.pl
>+++ b/admin/systempreferences.pl
>@@ -205,7 +205,7 @@ sub GetPrefParams {
>     return $params;
> }
> 
>-my $input       = new CGI;
>+my $input       = CGI->new;
> my $searchfield = $input->param('searchfield') || '';
> my $Tvalue      = $input->param('Tvalue');
> my $offset      = $input->param('offset') || 0;
>diff --git a/admin/transport-cost-matrix.pl b/admin/transport-cost-matrix.pl
>index c146da975cd..e28ee89b798 100755
>--- a/admin/transport-cost-matrix.pl
>+++ b/admin/transport-cost-matrix.pl
>@@ -30,7 +30,7 @@ use Koha::Libraries;
> 
> use Data::Dumper;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> my ($template, $loggedinuser, $cookie)
>     = get_template_and_user({template_name => "admin/transport-cost-matrix.tt",
>diff --git a/admin/usage_statistics.pl b/admin/usage_statistics.pl
>index 8e35d6c56ac..cc22948229d 100755
>--- a/admin/usage_statistics.pl
>+++ b/admin/usage_statistics.pl
>@@ -23,7 +23,7 @@ use C4::Output;
> use Koha::DateUtils qw( dt_from_string output_pref );
> use Koha::Libraries;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {
>         template_name   => "admin/usage_statistics.tt",
>diff --git a/admin/z3950servers.pl b/admin/z3950servers.pl
>index bff9bd2ca07..89c41d50348 100755
>--- a/admin/z3950servers.pl
>+++ b/admin/z3950servers.pl
>@@ -34,7 +34,7 @@ use Koha::Z3950Servers;
> 
> # Initialize CGI, template, database
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> my $op = $input->param('op') || 'list';
> my $id = $input->param('id') || 0;
> my $type = $input->param('type') || '';
>diff --git a/authorities/auth_finder.pl b/authorities/auth_finder.pl
>index 98d413bc581..ed6774f5999 100755
>--- a/authorities/auth_finder.pl
>+++ b/authorities/auth_finder.pl
>@@ -31,7 +31,7 @@ use Koha::SearchEngine::QueryBuilder;
> 
> use Koha::Authority::Types;
> 
>-my $query        = new CGI;
>+my $query        = CGI->new;
> my $op           = $query->param('op') || '';
> my $authtypecode = $query->param('authtypecode') || '';
> my $index        = $query->param('index') || '';
>diff --git a/authorities/authorities-home.pl b/authorities/authorities-home.pl
>index 828ba24b7df..66083d3285f 100755
>--- a/authorities/authorities-home.pl
>+++ b/authorities/authorities-home.pl
>@@ -38,7 +38,7 @@ use Koha::SearchEngine::QueryBuilder;
> use Koha::Token;
> use Koha::Z3950Servers;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> my $dbh   = C4::Context->dbh;
> my $op           = $query->param('op')           || '';
> my $authtypecode = $query->param('authtypecode') || '';
>diff --git a/authorities/authorities.pl b/authorities/authorities.pl
>index 6a856c19dd6..c8de9de788b 100755
>--- a/authorities/authorities.pl
>+++ b/authorities/authorities.pl
>@@ -553,7 +553,7 @@ sub build_hidden_data {
> # ======================== 
> #          MAIN 
> #=========================
>-my $input = new CGI;
>+my $input = CGI->new;
> my $z3950 = $input->param('z3950');
> my $error = $input->param('error');
> my $authid=$input->param('authid'); # if authid exists, it's a modif, not a new authority.
>diff --git a/authorities/blinddetail-biblio-search.pl b/authorities/blinddetail-biblio-search.pl
>index ed091a2c083..478a1bf1fc7 100755
>--- a/authorities/blinddetail-biblio-search.pl
>+++ b/authorities/blinddetail-biblio-search.pl
>@@ -49,7 +49,7 @@ use C4::Koha;
> use Koha::Authorities;
> use Koha::Authority::Types;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> 
> my $dbh = C4::Context->dbh;
> 
>diff --git a/authorities/detail-biblio-search.pl b/authorities/detail-biblio-search.pl
>index 5370ce19e4c..e2ba88b4dba 100755
>--- a/authorities/detail-biblio-search.pl
>+++ b/authorities/detail-biblio-search.pl
>@@ -51,7 +51,7 @@ use C4::Koha;
> use Koha::Authorities;
> use Koha::Authority::Types;
> 
>-my $query=new CGI;
>+my $query=CGI->new;
> 
> my $dbh=C4::Context->dbh;
> 
>diff --git a/authorities/detail.pl b/authorities/detail.pl
>index dee6ae9422b..6d8cb14ee12 100755
>--- a/authorities/detail.pl
>+++ b/authorities/detail.pl
>@@ -164,7 +164,7 @@ sub build_tabs {
> 
> 
> # 
>-my $query=new CGI;
>+my $query=CGI->new;
> 
> my $dbh=C4::Context->dbh;
> 
>diff --git a/authorities/export.pl b/authorities/export.pl
>index 2d7430983a0..ee21e1e14e4 100755
>--- a/authorities/export.pl
>+++ b/authorities/export.pl
>@@ -7,7 +7,7 @@ use C4::Output;
> use C4::AuthoritiesMarc;
> use CGI qw ( -utf8 );
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {
>         template_name   => "tools/export.tt",
>diff --git a/authorities/merge.pl b/authorities/merge.pl
>index 250ff111cc9..3b5f6c0fcee 100755
>--- a/authorities/merge.pl
>+++ b/authorities/merge.pl
>@@ -29,7 +29,7 @@ use Koha::Authority::MergeRequests;
> use Koha::Authority::Types;
> use Koha::MetadataRecord::Authority;
> 
>-my $input  = new CGI;
>+my $input  = CGI->new;
> my @authid = $input->multi_param('authid');
> my $merge  = $input->param('merge');
> 
>diff --git a/authorities/ysearch.pl b/authorities/ysearch.pl
>index 9861f877e66..92de7b1807b 100755
>--- a/authorities/ysearch.pl
>+++ b/authorities/ysearch.pl
>@@ -38,7 +38,7 @@ use C4::Output;
> use Koha::SearchEngine::Search;
> use Koha::SearchEngine::QueryBuilder;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> 
> my ( $auth_status, $sessionID ) = check_cookie_auth( $query->cookie('CGISESSID'), { catalogue => 1 } );
> 
>diff --git a/basket/basket.pl b/basket/basket.pl
>index 2ae309f9fea..aa4cd97dcf0 100755
>--- a/basket/basket.pl
>+++ b/basket/basket.pl
>@@ -27,7 +27,7 @@ use C4::Output;
> use Koha::AuthorisedValues;
> use Koha::CsvProfiles;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> 
> my ( $template, $borrowernumber, $cookie ) = get_template_and_user (
>     {
>diff --git a/basket/downloadcart.pl b/basket/downloadcart.pl
>index 6115f96707d..f8478770c2d 100755
>--- a/basket/downloadcart.pl
>+++ b/basket/downloadcart.pl
>@@ -32,7 +32,7 @@ use C4::Ris;
> use Koha::CsvProfiles;
> 
> use utf8;
>-my $query = new CGI;
>+my $query = CGI->new;
> 
> my ( $template, $borrowernumber, $cookie ) = get_template_and_user (
>     {
>diff --git a/catalogue/ISBDdetail.pl b/catalogue/ISBDdetail.pl
>index bef967c05c3..898f57ab5da 100755
>--- a/catalogue/ISBDdetail.pl
>+++ b/catalogue/ISBDdetail.pl
>@@ -51,7 +51,7 @@ use Koha::Patrons;
> use Koha::RecordProcessor;
> 
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> my $dbh = C4::Context->dbh;
> 
> my $biblionumber = $query->param('biblionumber');
>diff --git a/catalogue/MARCdetail.pl b/catalogue/MARCdetail.pl
>index 503b81c9d32..4f30839f2ce 100755
>--- a/catalogue/MARCdetail.pl
>+++ b/catalogue/MARCdetail.pl
>@@ -65,7 +65,7 @@ use Koha::DateUtils;
> 
> use List::MoreUtils qw( uniq );
> 
>-my $query        = new CGI;
>+my $query        = CGI->new;
> my $dbh          = C4::Context->dbh;
> my $biblionumber = $query->param('biblionumber');
> $biblionumber = HTML::Entities::encode($biblionumber);
>diff --git a/catalogue/export.pl b/catalogue/export.pl
>index 80f3f156cf0..b42b95b7abb 100755
>--- a/catalogue/export.pl
>+++ b/catalogue/export.pl
>@@ -10,7 +10,7 @@ use C4::Ris;
> 
> 
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user({
>     template_name   => "tools/export.tt",
>     query           => $query,
>diff --git a/catalogue/getitem-ajax.pl b/catalogue/getitem-ajax.pl
>index 80c4f615cfb..6180874555f 100755
>--- a/catalogue/getitem-ajax.pl
>+++ b/catalogue/getitem-ajax.pl
>@@ -32,7 +32,7 @@ use Koha::AuthorisedValues;
> use Koha::Items;
> use Koha::ItemTypes;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> my ( $status, $cookie, $sessionID ) = C4::Auth::check_api_auth( $cgi, { acquisition => 'order_receive' } );
> unless ($status eq "ok") {
>diff --git a/catalogue/image.pl b/catalogue/image.pl
>index d1fcba72d20..2214163fa8f 100755
>--- a/catalogue/image.pl
>+++ b/catalogue/image.pl
>@@ -32,7 +32,7 @@ use C4::Images;
> $| = 1;
> 
> my $DEBUG = 0;
>-my $data  = new CGI;
>+my $data  = CGI->new;
> my $imagenumber;
> 
> =head1 NAME
>diff --git a/catalogue/imageviewer.pl b/catalogue/imageviewer.pl
>index ac7d3204d0a..dc94db2d043 100755
>--- a/catalogue/imageviewer.pl
>+++ b/catalogue/imageviewer.pl
>@@ -30,7 +30,7 @@ use C4::Search;
> use Koha::Biblios;
> use Koha::Patrons;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
>     {
>         template_name   => "catalogue/imageviewer.tt",
>diff --git a/catalogue/issuehistory.pl b/catalogue/issuehistory.pl
>index 0630489a95f..e81ec56de50 100755
>--- a/catalogue/issuehistory.pl
>+++ b/catalogue/issuehistory.pl
>@@ -30,7 +30,7 @@ use Koha::Old::Checkouts;
> 
> use Koha::Biblios;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
>     {
>         template_name   => "catalogue/issuehistory.tt",
>diff --git a/catalogue/item-export.pl b/catalogue/item-export.pl
>index 10d7b5083c8..fbc69bf71a7 100755
>--- a/catalogue/item-export.pl
>+++ b/catalogue/item-export.pl
>@@ -24,7 +24,7 @@ use CGI;
> use C4::Auth;
> use C4::Output;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> my ($template, $borrowernumber, $cookie) = get_template_and_user({
>     template_name => 'catalogue/itemsearch_csv.tt',
>diff --git a/catalogue/itemsearch.pl b/catalogue/itemsearch.pl
>index 48d4c775b4a..431786cb817 100755
>--- a/catalogue/itemsearch.pl
>+++ b/catalogue/itemsearch.pl
>@@ -33,7 +33,7 @@ use Koha::Item::Search::Field qw(GetItemSearchFields);
> use Koha::ItemTypes;
> use Koha::Libraries;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> my %params = $cgi->Vars;
> 
> my $format = $cgi->param('format');
>diff --git a/catalogue/labeledMARCdetail.pl b/catalogue/labeledMARCdetail.pl
>index 22d1a08de43..16eb6cacd11 100755
>--- a/catalogue/labeledMARCdetail.pl
>+++ b/catalogue/labeledMARCdetail.pl
>@@ -33,7 +33,7 @@ use Koha::Biblios;
> use Koha::BiblioFrameworks;
> use Koha::Patrons;
> 
>-my $query        = new CGI;
>+my $query        = CGI->new;
> my $dbh          = C4::Context->dbh;
> my $biblionumber = $query->param('biblionumber');
> $biblionumber = HTML::Entities::encode($biblionumber);
>diff --git a/catalogue/moredetail.pl b/catalogue/moredetail.pl
>index dd913b122f2..3dca1f4f3b0 100755
>--- a/catalogue/moredetail.pl
>+++ b/catalogue/moredetail.pl
>@@ -38,7 +38,7 @@ use Koha::DateUtils;
> use Koha::Items;
> use Koha::Patrons;
> 
>-my $query=new CGI;
>+my $query=CGI->new;
> 
> my ($template, $loggedinuser, $cookie) = get_template_and_user(
>     {
>diff --git a/catalogue/search-history.pl b/catalogue/search-history.pl
>index 6a920c60270..092be2e89f5 100755
>--- a/catalogue/search-history.pl
>+++ b/catalogue/search-history.pl
>@@ -25,7 +25,7 @@ use C4::Auth;
> use C4::Search::History;
> use C4::Output;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> my ($template, $loggedinuser, $cookie) = get_template_and_user({
>     template_name   => 'catalogue/search-history.tt',
>diff --git a/catalogue/search.pl b/catalogue/search.pl
>index b6b38728d72..a5e0ecb4089 100755
>--- a/catalogue/search.pl
>+++ b/catalogue/search.pl
>@@ -163,7 +163,7 @@ my $DisplayMultiPlaceHold = C4::Context->preference("DisplayMultiPlaceHold");
> # create a new CGI object
> # FIXME: no_undef_params needs to be tested
> use CGI qw('-no_undef_params' -utf8 );
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> # decide which template to use
> my $template_name;
>diff --git a/catalogue/showmarc.pl b/catalogue/showmarc.pl
>index d21683ee72f..0c252c12293 100755
>--- a/catalogue/showmarc.pl
>+++ b/catalogue/showmarc.pl
>@@ -35,7 +35,7 @@ use C4::Biblio;
> use C4::ImportBatch;
> use C4::XSLT ();
> 
>-my $input= new CGI;
>+my $input= CGI->new;
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>   {
>     template_name   => "catalogue/showmarc.tt",
>diff --git a/catalogue/stockrotation.pl b/catalogue/stockrotation.pl
>index d87149c90f9..015b1235dcf 100755
>--- a/catalogue/stockrotation.pl
>+++ b/catalogue/stockrotation.pl
>@@ -38,7 +38,7 @@ use Koha::StockRotationRotas;
> use Koha::StockRotationStages;
> use Koha::Util::StockRotation qw(:ALL);
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> unless (C4::Context->preference('StockRotation')) {
>     # redirect to Intranet home if self-check is not enabled
>diff --git a/catalogue/updateitem.pl b/catalogue/updateitem.pl
>index d8c280e2618..9ff9f9b2d52 100755
>--- a/catalogue/updateitem.pl
>+++ b/catalogue/updateitem.pl
>@@ -27,7 +27,7 @@ use C4::Output;
> use C4::Circulation;
> use C4::Reserves;
> 
>-my $cgi= new CGI;
>+my $cgi= CGI->new;
> 
> checkauth($cgi, 0, {circulate => 'circulate_remaining_permissions'}, 'intranet');
> 
>diff --git a/cataloguing/addbiblio.pl b/cataloguing/addbiblio.pl
>index 996f61112bf..a4614cc941d 100755
>--- a/cataloguing/addbiblio.pl
>+++ b/cataloguing/addbiblio.pl
>@@ -689,7 +689,7 @@ sub build_tabs {
> # ========================
> #          MAIN
> #=========================
>-my $input = new CGI;
>+my $input = CGI->new;
> my $error = $input->param('error');
> my $biblionumber  = $input->param('biblionumber'); # if biblionumber exists, it's a modif, not a new biblio.
> my $parentbiblio  = $input->param('parentbiblionumber');
>diff --git a/cataloguing/addbooks.pl b/cataloguing/addbooks.pl
>index fdc04b2c2e4..69a573186ec 100755
>--- a/cataloguing/addbooks.pl
>+++ b/cataloguing/addbooks.pl
>@@ -41,7 +41,7 @@ use Koha::SearchEngine::Search;
> use Koha::SearchEngine::QueryBuilder;
> use Koha::Z3950Servers;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> my $success = $input->param('biblioitem');
> my $query   = $input->param('q');
>diff --git a/cataloguing/additem.pl b/cataloguing/additem.pl
>index bb578a1bf36..36214776307 100755
>--- a/cataloguing/additem.pl
>+++ b/cataloguing/additem.pl
>@@ -165,7 +165,7 @@ sub generate_subfield_form {
>         }
> 
>         if ($frameworkcode eq 'FA' && $subfieldlib->{kohafield} eq 'items.barcode' && !$value){
>-	    my $input = new CGI;
>+	    my $input = CGI->new;
> 	    $value = $input->param('barcode');
> 	}
> 
>@@ -395,7 +395,7 @@ sub removeFieldsForPrefill {
> 
> }
> 
>-my $input        = new CGI;
>+my $input        = CGI->new;
> my $error        = $input->param('error');
> 
> my $biblionumber;
>diff --git a/cataloguing/merge.pl b/cataloguing/merge.pl
>index baf2b3057a4..7b1f81635cf 100755
>--- a/cataloguing/merge.pl
>+++ b/cataloguing/merge.pl
>@@ -34,7 +34,7 @@ use Koha::BiblioFrameworks;
> use Koha::Items;
> use Koha::MetadataRecord;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> my @biblionumbers = $input->multi_param('biblionumber');
> my $merge = $input->param('merge');
> 
>@@ -207,7 +207,7 @@ if ($merge) {
>         foreach my $biblionumber (@biblionumbers) {
>             my $marcrecord = GetMarcBiblio({ biblionumber => $biblionumber });
>             my $frameworkcode = GetFrameworkCode($biblionumber);
>-            my $recordObj = new Koha::MetadataRecord({'record' => $marcrecord, schema => $marcflavour});
>+            my $recordObj = Koha::MetadataRecord->new({'record' => $marcrecord, schema => $marcflavour});
>             my $record = {
>                 recordid => $biblionumber,
>                 record => $marcrecord,
>diff --git a/cataloguing/plugin_launcher.pl b/cataloguing/plugin_launcher.pl
>index 601784c73a6..90105f326cd 100755
>--- a/cataloguing/plugin_launcher.pl
>+++ b/cataloguing/plugin_launcher.pl
>@@ -22,7 +22,7 @@ use CGI qw ( -utf8 );
> 
> use Koha::FrameworkPlugin;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> my $plugin= Koha::FrameworkPlugin->new( {
>     name => scalar $input->param("plugin_name"),
> });
>diff --git a/cataloguing/value_builder/unimarc_field_210c.pl b/cataloguing/value_builder/unimarc_field_210c.pl
>index b512a595cee..4eef5d30d32 100755
>--- a/cataloguing/value_builder/unimarc_field_210c.pl
>+++ b/cataloguing/value_builder/unimarc_field_210c.pl
>@@ -54,7 +54,7 @@ return ($function_name,$res);
> 
> sub plugin {
> my ($input) = @_;
>-    my $query=new CGI;
>+    my $query=CGI->new;
>     my $op = $query->param('op');
>     my $authtypecode = $query->param('authtypecode');
>     my $index = $query->param('index');
>diff --git a/cataloguing/value_builder/unimarc_field_4XX.pl b/cataloguing/value_builder/unimarc_field_4XX.pl
>index e15768780ed..946ad67357d 100755
>--- a/cataloguing/value_builder/unimarc_field_4XX.pl
>+++ b/cataloguing/value_builder/unimarc_field_4XX.pl
>@@ -69,7 +69,7 @@ sub plugin_javascript {
> sub plugin {
>     my ($input)   = @_;
>     my $dbh       = C4::Context->dbh;
>-    my $query     = new CGI;
>+    my $query     = CGI->new;
>     my $op        = $query->param('op');
>     my $type      = $query->param('type');
>     my $startfrom = $query->param('startfrom');
>diff --git a/cataloguing/ysearch.pl b/cataloguing/ysearch.pl
>index 3aa209c2d43..1683da4835a 100755
>--- a/cataloguing/ysearch.pl
>+++ b/cataloguing/ysearch.pl
>@@ -31,7 +31,7 @@ use C4::Charset;
> use C4::Auth qw/check_cookie_auth/;
> use JSON qw/ to_json /;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> my $query = $input->param('term');
> my $table = $input->param('table');
> my $field = $input->param('field');
>diff --git a/cataloguing/z3950_auth_search.pl b/cataloguing/z3950_auth_search.pl
>index 1e254687852..615d7e7ce3c 100755
>--- a/cataloguing/z3950_auth_search.pl
>+++ b/cataloguing/z3950_auth_search.pl
>@@ -26,7 +26,7 @@ use C4::Context;
> use C4::Breeding;
> use C4::Koha;
> 
>-my $input        = new CGI;
>+my $input        = CGI->new;
> my $dbh          = C4::Context->dbh;
> my $error         = $input->param('error');
> my $authid  = $input->param('authid') || 0;
>diff --git a/cataloguing/z3950_search.pl b/cataloguing/z3950_search.pl
>index e4fce455974..f5f04246d6d 100755
>--- a/cataloguing/z3950_search.pl
>+++ b/cataloguing/z3950_search.pl
>@@ -27,7 +27,7 @@ use C4::Context;
> use C4::Breeding;
> use C4::Koha;
> 
>-my $input        = new CGI;
>+my $input        = CGI->new;
> my $error         = $input->param('error');
> my $biblionumber  = $input->param('biblionumber') || 0;
> my $frameworkcode = $input->param('frameworkcode');
>diff --git a/changelanguage.pl b/changelanguage.pl
>index 6fd31132ac8..48d8c4657f0 100755
>--- a/changelanguage.pl
>+++ b/changelanguage.pl
>@@ -20,7 +20,7 @@ use CGI qw ( -utf8 );
> use C4::Templates;
> use Koha::Util::Navigation;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> my $language = $query->param('language');
> my $url = Koha::Util::Navigation::local_referer($query, {remove_language => 1, staff => 1});
> 
>diff --git a/circ/add_message.pl b/circ/add_message.pl
>index e5d6d6687f9..455791b919b 100755
>--- a/circ/add_message.pl
>+++ b/circ/add_message.pl
>@@ -25,7 +25,7 @@ use C4::Auth;
> use C4::Output;
> use Koha::Patron::Message;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {   template_name   => "circ/circulation.tt",
>diff --git a/circ/article-request-slip.pl b/circ/article-request-slip.pl
>index 7e42380681f..2175561edba 100755
>--- a/circ/article-request-slip.pl
>+++ b/circ/article-request-slip.pl
>@@ -28,7 +28,7 @@ use C4::Letters;
> use Koha::ArticleRequests;
> use Koha::Patrons;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> my $id = $cgi->param('id');
> 
>diff --git a/circ/article-requests.pl b/circ/article-requests.pl
>index 888918dfcad..3e856bcafa1 100755
>--- a/circ/article-requests.pl
>+++ b/circ/article-requests.pl
>@@ -25,7 +25,7 @@ use C4::Auth;
> use C4::Output;
> use Koha::ArticleRequests;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {
>         template_name   => "circ/article-requests.tt",
>diff --git a/circ/bookcount.pl b/circ/bookcount.pl
>index a415fca23e2..8509991ac43 100755
>--- a/circ/bookcount.pl
>+++ b/circ/bookcount.pl
>@@ -32,7 +32,7 @@ use Koha::Biblios;
> use Koha::DateUtils;
> use Koha::Libraries;
> 
>-my $input        = new CGI;
>+my $input        = CGI->new;
> my $itm          = $input->param('itm');
> my $biblionumber = $input->param('biblionumber');
> 
>diff --git a/circ/branchoverdues.pl b/circ/branchoverdues.pl
>index 24c49cfddfd..43f3a862272 100755
>--- a/circ/branchoverdues.pl
>+++ b/circ/branchoverdues.pl
>@@ -38,7 +38,7 @@ by item location.
> 
> =cut
> 
>-my $input       = new CGI;
>+my $input       = CGI->new;
> my $dbh = C4::Context->dbh;
> 
> my ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user({
>diff --git a/circ/branchtransfers.pl b/circ/branchtransfers.pl
>index f64d37fc76c..cb96d942079 100755
>--- a/circ/branchtransfers.pl
>+++ b/circ/branchtransfers.pl
>@@ -39,7 +39,7 @@ use Koha::Patrons;
> ###############################################
> #  Getting state
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> 
> if (!C4::Context->userenv){
> 	my $sessionID = $query->cookie("CGISESSID");
>diff --git a/circ/checkout-notes.pl b/circ/checkout-notes.pl
>index dc891218ada..61ce7cc3531 100755
>--- a/circ/checkout-notes.pl
>+++ b/circ/checkout-notes.pl
>@@ -25,7 +25,7 @@ use C4::Output;
> use C4::Auth;
> use Koha::Checkouts;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> 
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {
>diff --git a/circ/circulation-home.pl b/circ/circulation-home.pl
>index 87be24610fc..f68535d1f19 100755
>--- a/circ/circulation-home.pl
>+++ b/circ/circulation-home.pl
>@@ -24,7 +24,7 @@ use C4::Context;
> use Koha::BiblioFrameworks;
> use Koha::Checkouts;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user(
>     {
>         template_name   => "circ/circulation-home.tt",
>diff --git a/circ/circulation.pl b/circ/circulation.pl
>index dcb206119cf..2d82d1286d5 100755
>--- a/circ/circulation.pl
>+++ b/circ/circulation.pl
>@@ -65,7 +65,7 @@ use List::MoreUtils qw/uniq/;
> #
> # PARAMETERS READING
> #
>-my $query = new CGI;
>+my $query = CGI->new;
> 
> my $override_high_holds     = $query->param('override_high_holds');
> my $override_high_holds_tmp = $query->param('override_high_holds_tmp');
>diff --git a/circ/del_message.pl b/circ/del_message.pl
>index 36c25c3f2ea..496ab655670 100755
>--- a/circ/del_message.pl
>+++ b/circ/del_message.pl
>@@ -25,7 +25,7 @@ use C4::Auth;
> use C4::Output;
> use Koha::Patron::Messages;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {   template_name   => "circ/circulation.tt",
>diff --git a/circ/hold-transfer-slip.pl b/circ/hold-transfer-slip.pl
>index 0cd57b1498e..c0a3b6ea4cc 100755
>--- a/circ/hold-transfer-slip.pl
>+++ b/circ/hold-transfer-slip.pl
>@@ -31,7 +31,7 @@ BEGIN {
>     $debug = $ENV{DEBUG} || 0;
> }
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> my $sessionID = $input->cookie("CGISESSID");
> my $session = get_session($sessionID);
> 
>diff --git a/circ/offline-mf.pl b/circ/offline-mf.pl
>index c48aa23116b..01b1d7c1866 100755
>--- a/circ/offline-mf.pl
>+++ b/circ/offline-mf.pl
>@@ -20,7 +20,7 @@ use Modern::Perl;
> use CGI qw ( -utf8 );
> use C4::Auth;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> my ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user(
>     {
>         template_name   => "circ/offline-mf.tt",
>diff --git a/circ/offline.pl b/circ/offline.pl
>index d35ad23ea01..d1500d62009 100755
>--- a/circ/offline.pl
>+++ b/circ/offline.pl
>@@ -22,7 +22,7 @@ use C4::Auth;
> use C4::Output;
> use C4::Context;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> my ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user(
>     {
>         template_name   => "circ/offline.tt",
>diff --git a/circ/on-site_checkouts.pl b/circ/on-site_checkouts.pl
>index 6118a56b697..c581e8ef9a7 100755
>--- a/circ/on-site_checkouts.pl
>+++ b/circ/on-site_checkouts.pl
>@@ -24,7 +24,7 @@ use C4::Output;
> use C4::Koha;
> use Koha::BiblioFrameworks;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> my ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user(
>     {
>diff --git a/circ/overdue.pl b/circ/overdue.pl
>index 7ebbafb031e..1ce791fe24d 100755
>--- a/circ/overdue.pl
>+++ b/circ/overdue.pl
>@@ -30,7 +30,7 @@ use Koha::DateUtils;
> use DateTime;
> use DateTime::Format::MySQL;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> my $showall         = $input->param('showall');
> my $bornamefilter   = $input->param('borname') || '';
> my $borcatfilter    = $input->param('borcat') || '';
>diff --git a/circ/pendingreserves.pl b/circ/pendingreserves.pl
>index dd6ae7699d8..01cf877b552 100755
>--- a/circ/pendingreserves.pl
>+++ b/circ/pendingreserves.pl
>@@ -33,7 +33,7 @@ use Koha::DateUtils;
> use Koha::Holds;
> use DateTime::Duration;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> my $startdate = $input->param('from');
> my $enddate = $input->param('to');
> my $theme = $input->param('theme');    # only used if allowthemeoverride is set
>diff --git a/circ/renew.pl b/circ/renew.pl
>index 29824187a82..1d6bdee076d 100755
>--- a/circ/renew.pl
>+++ b/circ/renew.pl
>@@ -29,7 +29,7 @@ use Koha::DateUtils;
> use Koha::Database;
> use Koha::BiblioFrameworks;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> my ( $template, $librarian, $cookie, $flags ) = get_template_and_user(
>     {
>diff --git a/circ/request-article.pl b/circ/request-article.pl
>index 66d042b4e5c..48b1d02e560 100755
>--- a/circ/request-article.pl
>+++ b/circ/request-article.pl
>@@ -28,7 +28,7 @@ use Koha::Biblios;
> use Koha::Patrons;
> use Koha::ArticleRequests;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> my ( $template, $borrowernumber, $cookie, $flags ) = get_template_and_user(
>     {
>diff --git a/circ/reserveratios.pl b/circ/reserveratios.pl
>index c673e869eda..47b0375387f 100755
>--- a/circ/reserveratios.pl
>+++ b/circ/reserveratios.pl
>@@ -32,7 +32,7 @@ use C4::Acquisition qw/GetOrdersByBiblionumber/;
> use Koha::DateUtils;
> use Koha::Acquisition::Baskets;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> my $startdate       = $input->param('from');
> my $enddate         = $input->param('to');
> my $ratio           = $input->param('ratio');
>diff --git a/circ/returns.pl b/circ/returns.pl
>index 7a45995eede..24be3e55aab 100755
>--- a/circ/returns.pl
>+++ b/circ/returns.pl
>@@ -57,7 +57,7 @@ use Koha::Holds;
> use Koha::Items;
> use Koha::Patrons;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> 
> #getting the template
> my ( $template, $librarian, $cookie, $flags ) = get_template_and_user(
>diff --git a/circ/transfer-slip.pl b/circ/transfer-slip.pl
>index eb762535e22..1cbc98e0922 100755
>--- a/circ/transfer-slip.pl
>+++ b/circ/transfer-slip.pl
>@@ -32,7 +32,7 @@ BEGIN {
>     $debug = $ENV{DEBUG} || 0;
> }
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> my $sessionID = $input->cookie("CGISESSID");
> my $session = get_session($sessionID);
> 
>diff --git a/circ/transferstoreceive.pl b/circ/transferstoreceive.pl
>index 37ae2a473c2..bbf25368ae3 100755
>--- a/circ/transferstoreceive.pl
>+++ b/circ/transferstoreceive.pl
>@@ -41,7 +41,7 @@ use Koha::DateUtils;
> use Koha::BiblioFrameworks;
> use Koha::Patrons;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> my $itemnumber = $input->param('itemnumber');
> 
> my ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user(
>diff --git a/circ/view_holdsqueue.pl b/circ/view_holdsqueue.pl
>index 26c04fe78fb..4e6384e3176 100755
>--- a/circ/view_holdsqueue.pl
>+++ b/circ/view_holdsqueue.pl
>@@ -32,7 +32,7 @@ use C4::HoldsQueue qw(GetHoldsQueueItems);
> use Koha::BiblioFrameworks;
> use Koha::ItemTypes;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> my ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user(
>     {
>         template_name   => "circ/view_holdsqueue.tt",
>diff --git a/circ/waitingreserves.pl b/circ/waitingreserves.pl
>index 772477b62e7..6db24ceb487 100755
>--- a/circ/waitingreserves.pl
>+++ b/circ/waitingreserves.pl
>@@ -40,7 +40,7 @@ use Koha::Items;
> use Koha::ItemTypes;
> use Koha::Patrons;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> my $item           = $input->param('itemnumber');
> my $borrowernumber = $input->param('borrowernumber');
>diff --git a/circ/ypattrodue-attr-search-authvalue.pl b/circ/ypattrodue-attr-search-authvalue.pl
>index 4e8e2b33156..f0a694db865 100755
>--- a/circ/ypattrodue-attr-search-authvalue.pl
>+++ b/circ/ypattrodue-attr-search-authvalue.pl
>@@ -24,7 +24,7 @@ use C4::Context;
> use C4::Auth qw/check_cookie_auth/;
> use C4::Debug;
> 
>-my $input    = new CGI;
>+my $input    = CGI->new;
> my $query    = $input->param('term');
> my $attrcode = $input->path_info || '';
> $attrcode =~ s|^/||;
>diff --git a/circ/ysearch.pl b/circ/ysearch.pl
>index c50f772599b..a52568640ec 100755
>--- a/circ/ysearch.pl
>+++ b/circ/ysearch.pl
>@@ -33,7 +33,7 @@ use Koha::DateUtils qw/format_sqldatetime/;
> 
> use JSON qw( to_json );
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> my $query = $input->param('term');
> 
> binmode STDOUT, ":encoding(UTF-8)";
>diff --git a/clubs/club-enrollments.pl b/clubs/club-enrollments.pl
>index 87b8debfa09..6163c70894a 100755
>--- a/clubs/club-enrollments.pl
>+++ b/clubs/club-enrollments.pl
>@@ -25,7 +25,7 @@ use C4::Auth;
> use C4::Output;
> use Koha::Clubs;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {
>diff --git a/clubs/clubs-add-modify.pl b/clubs/clubs-add-modify.pl
>index 0337cf02bbf..058d8222ba5 100755
>--- a/clubs/clubs-add-modify.pl
>+++ b/clubs/clubs-add-modify.pl
>@@ -28,7 +28,7 @@ use Koha::DateUtils qw(dt_from_string);
> use Koha::Clubs;
> use Koha::Club::Fields;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {
>diff --git a/clubs/clubs.pl b/clubs/clubs.pl
>index ca382ce4148..d2d5a963727 100755
>--- a/clubs/clubs.pl
>+++ b/clubs/clubs.pl
>@@ -27,7 +27,7 @@ use C4::Output;
> use Koha::Clubs;
> use Koha::Club::Templates;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {
>diff --git a/clubs/patron-clubs-tab.pl b/clubs/patron-clubs-tab.pl
>index 7a770bdfbba..1fc47b4dcbd 100755
>--- a/clubs/patron-clubs-tab.pl
>+++ b/clubs/patron-clubs-tab.pl
>@@ -27,7 +27,7 @@ use C4::Output;
> use Koha::Patrons;
> use Koha::Club::Enrollments;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {
>diff --git a/clubs/patron-enroll.pl b/clubs/patron-enroll.pl
>index 7dc5bed25a7..3642996b5cb 100755
>--- a/clubs/patron-enroll.pl
>+++ b/clubs/patron-enroll.pl
>@@ -25,7 +25,7 @@ use C4::Auth;
> use C4::Output;
> use Koha::Clubs;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {
>diff --git a/clubs/templates-add-modify.pl b/clubs/templates-add-modify.pl
>index da4ef21ef72..7e22af14ce2 100755
>--- a/clubs/templates-add-modify.pl
>+++ b/clubs/templates-add-modify.pl
>@@ -32,7 +32,7 @@ use Koha::Club::Template::EnrollmentFields;
> use Koha::Database;
> my $schema = Koha::Database->new()->schema();
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {
>diff --git a/course_reserves/add_items.pl b/course_reserves/add_items.pl
>index 0a50be4385e..7c16a143f59 100755
>--- a/course_reserves/add_items.pl
>+++ b/course_reserves/add_items.pl
>@@ -33,7 +33,7 @@ use C4::CourseReserves qw(GetCourse GetCourseItem GetCourseReserve ModCourseItem
> use Koha::Items;
> use Koha::ItemTypes;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> my $action       = $cgi->param('action')       || '';
> my $course_id    = $cgi->param('course_id')    || '';
>diff --git a/course_reserves/batch_add_items.pl b/course_reserves/batch_add_items.pl
>index c47b74f1e49..829709930d6 100755
>--- a/course_reserves/batch_add_items.pl
>+++ b/course_reserves/batch_add_items.pl
>@@ -29,7 +29,7 @@ use C4::CourseReserves qw(ModCourseItem ModCourseReserve GetCourse);
> 
> use Koha::Items;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> my $action    = $cgi->param('action')    || q{};
> my $course_id = $cgi->param('course_id') || q{};
>diff --git a/course_reserves/course-details.pl b/course_reserves/course-details.pl
>index eed96509157..35b2bc76959 100755
>--- a/course_reserves/course-details.pl
>+++ b/course_reserves/course-details.pl
>@@ -28,7 +28,7 @@ use C4::Koha;
> 
> use C4::CourseReserves qw(DelCourseReserve GetCourse GetCourseReserves);
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> my $action = $cgi->param('action') || '';
> my $course_id = $cgi->param('course_id');
>diff --git a/course_reserves/course-reserves.pl b/course_reserves/course-reserves.pl
>index d8052e06588..1ecda7ad9e1 100755
>--- a/course_reserves/course-reserves.pl
>+++ b/course_reserves/course-reserves.pl
>@@ -27,7 +27,7 @@ use C4::Output;
> 
> use C4::CourseReserves qw(GetCourses);
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {
>diff --git a/course_reserves/course.pl b/course_reserves/course.pl
>index d655bf1542f..c5fb37baa34 100755
>--- a/course_reserves/course.pl
>+++ b/course_reserves/course.pl
>@@ -28,7 +28,7 @@ use C4::Koha;
> 
> use C4::CourseReserves qw(GetCourse);
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {   template_name   => "course_reserves/course.tt",
>diff --git a/course_reserves/mod_course.pl b/course_reserves/mod_course.pl
>index b7b29432391..060b2a129fc 100755
>--- a/course_reserves/mod_course.pl
>+++ b/course_reserves/mod_course.pl
>@@ -27,7 +27,7 @@ use C4::Auth;
> 
> use C4::CourseReserves qw(DelCourse ModCourse ModCourseInstructors);
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {   template_name   => "about.tt",
>         query           => $cgi,
>diff --git a/docs/CAS/CASProxy/examples/koha_webservice.pl b/docs/CAS/CASProxy/examples/koha_webservice.pl
>index 07bd4eacbd5..da7fc8b10de 100755
>--- a/docs/CAS/CASProxy/examples/koha_webservice.pl
>+++ b/docs/CAS/CASProxy/examples/koha_webservice.pl
>@@ -44,7 +44,7 @@ use C4::Output;
> use C4::Context;
> use CGI qw ( -utf8 );
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> print CGI::header('-type'=>'text/plain', '-charset'=>'utf-8');
> 
>diff --git a/docs/CAS/CASProxy/examples/proxy_cas.pl b/docs/CAS/CASProxy/examples/proxy_cas.pl
>index 2db8d93f8de..c69d197f80e 100755
>--- a/docs/CAS/CASProxy/examples/proxy_cas.pl
>+++ b/docs/CAS/CASProxy/examples/proxy_cas.pl
>@@ -35,7 +35,7 @@ use Authen::CAS::Client;
> # URL Of the CAS Server
> my $casServerUrl = 'https://localhost:8443/cas/';
> my $cas = Authen::CAS::Client->new($casServerUrl);
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> # URL of the service we're requesting a Service Ticket for (typically this very same page)
> my $proxy_service = $cgi->url;
>diff --git a/docs/CAS/CASProxy/examples/proxy_cas_callback.pl b/docs/CAS/CASProxy/examples/proxy_cas_callback.pl
>index fdda4274f01..9c6214795bf 100755
>--- a/docs/CAS/CASProxy/examples/proxy_cas_callback.pl
>+++ b/docs/CAS/CASProxy/examples/proxy_cas_callback.pl
>@@ -33,7 +33,7 @@ use Storable qw(nstore_fd);
> my $casServerUrl = 'https://localhost:8443/cas/';
> my $cas = Authen::CAS::Client->new($casServerUrl);
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> my $proxy_service = $cgi->url;
> 
>diff --git a/docs/CAS/CASProxy/examples/proxy_cas_data.pl b/docs/CAS/CASProxy/examples/proxy_cas_data.pl
>index 4c72a63217f..6346b5ec543 100755
>--- a/docs/CAS/CASProxy/examples/proxy_cas_data.pl
>+++ b/docs/CAS/CASProxy/examples/proxy_cas_data.pl
>@@ -43,7 +43,7 @@ my $cas = Authen::CAS::Client->new($casServerUrl);
> # URL of the service we'd like to be proxy for (typically the Koha webservice we want to query)
> my $target_service = "https://.../koha_webservice.pl";
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> print $cgi->header({-type  =>  'text/html'});
> print $cgi->start_html("proxy cas");
>diff --git a/help.pl b/help.pl
>index b39c5773f1a..4dd3ac3c122 100755
>--- a/help.pl
>+++ b/help.pl
>@@ -24,7 +24,7 @@ use C4::Auth;
> use C4::Context;
> use Koha::Manual;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> 
> # We need to call get_template_and_user to let it does the job correctly
> # for the language
>diff --git a/installer/install.pl b/installer/install.pl
>index 067ba342cac..7aab43f89cb 100755
>--- a/installer/install.pl
>+++ b/installer/install.pl
>@@ -33,7 +33,7 @@ use C4::Installer::PerlModules;
> 
> use Koha;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> my $step  = $query->param('step');
> 
> my $language = $query->param('language');
>diff --git a/installer/onboarding.pl b/installer/onboarding.pl
>index f3be391f32c..40b4c331695 100755
>--- a/installer/onboarding.pl
>+++ b/installer/onboarding.pl
>@@ -33,7 +33,7 @@ use Koha::ItemTypes;
> use Koha::CirculationRules;
> 
> #Setting variables
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> unless ( C4::Context->preference('Version') ) {
>     print $input->redirect("/cgi-bin/koha/installer/install.pl");
>diff --git a/labels/label-create-csv.pl b/labels/label-create-csv.pl
>index 696374d7173..4e8e66b7028 100755
>--- a/labels/label-create-csv.pl
>+++ b/labels/label-create-csv.pl
>@@ -28,7 +28,7 @@ use C4::Debug;
> use C4::Creators;
> use C4::Labels;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> my $batch_id;
> my @label_ids;
>diff --git a/labels/label-create-pdf.pl b/labels/label-create-pdf.pl
>index 0fea1dfe887..d35c5d36ea9 100755
>--- a/labels/label-create-pdf.pl
>+++ b/labels/label-create-pdf.pl
>@@ -26,7 +26,7 @@ use C4::Debug;
> use C4::Creators;
> use C4::Labels;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> my ( undef, $loggedinuser, $cookie ) = get_template_and_user({
> 								     template_name   => "labels/label-home.tt",
>diff --git a/labels/label-create-xml.pl b/labels/label-create-xml.pl
>index 89d23db154d..fe462a2a842 100755
>--- a/labels/label-create-xml.pl
>+++ b/labels/label-create-xml.pl
>@@ -28,7 +28,7 @@ use C4::Debug;
> use C4::Creators;
> use C4::Labels;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> my $batch_id;
> my @label_ids;
>diff --git a/labels/label-edit-batch.pl b/labels/label-edit-batch.pl
>index 7df5ff11ea4..c6e5930e838 100755
>--- a/labels/label-edit-batch.pl
>+++ b/labels/label-edit-batch.pl
>@@ -30,7 +30,7 @@ use C4::Labels;
> 
> use Koha::Items;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {
>         template_name   => "labels/label-edit-batch.tt",
>diff --git a/labels/label-edit-layout.pl b/labels/label-edit-layout.pl
>index ac907f3beac..b5f279c1e08 100755
>--- a/labels/label-edit-layout.pl
>+++ b/labels/label-edit-layout.pl
>@@ -28,7 +28,7 @@ use C4::Output qw(output_html_with_http_headers);
> use C4::Creators;
> use C4::Labels;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {
>         template_name   => "labels/label-edit-layout.tt",
>diff --git a/labels/label-edit-profile.pl b/labels/label-edit-profile.pl
>index 6a60c6c7f45..3569f574fc0 100755
>--- a/labels/label-edit-profile.pl
>+++ b/labels/label-edit-profile.pl
>@@ -27,7 +27,7 @@ use C4::Output qw(output_html_with_http_headers);
> use C4::Creators;
> use C4::Labels;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {
>         template_name   => "labels/label-edit-profile.tt",
>diff --git a/labels/label-edit-range.pl b/labels/label-edit-range.pl
>index daf8a43ffb1..4ff6c9b9965 100755
>--- a/labels/label-edit-range.pl
>+++ b/labels/label-edit-range.pl
>@@ -24,7 +24,7 @@ use CGI qw ( -utf8 );
> use C4::Auth qw(get_template_and_user);
> use C4::Output qw(output_html_with_http_headers);
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {
>         template_name   => "labels/label-edit-range.tt",
>diff --git a/labels/label-edit-template.pl b/labels/label-edit-template.pl
>index 6beb0b4cc46..197b336c437 100755
>--- a/labels/label-edit-template.pl
>+++ b/labels/label-edit-template.pl
>@@ -27,7 +27,7 @@ use C4::Output qw(output_html_with_http_headers);
> use C4::Creators;
> use C4::Labels;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {
>         template_name   => "labels/label-edit-template.tt",
>diff --git a/labels/label-home.pl b/labels/label-home.pl
>index 245f22fa857..fee57edaa25 100755
>--- a/labels/label-home.pl
>+++ b/labels/label-home.pl
>@@ -25,7 +25,7 @@ use CGI qw ( -utf8 );
> use C4::Auth qw(get_template_and_user);
> use C4::Output qw(output_html_with_http_headers);
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {
>         template_name   => "labels/label-home.tt",
>diff --git a/labels/label-item-search.pl b/labels/label-item-search.pl
>index 36631946e33..3eed6974b9e 100755
>--- a/labels/label-item-search.pl
>+++ b/labels/label-item-search.pl
>@@ -45,7 +45,7 @@ BEGIN {
>     }
> }
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> 
> my $type      = $query->param('type');
> my $op        = $query->param('op') || '';
>diff --git a/labels/label-manage.pl b/labels/label-manage.pl
>index eca571d6f06..8f53a70ae7e 100755
>--- a/labels/label-manage.pl
>+++ b/labels/label-manage.pl
>@@ -30,7 +30,7 @@ use C4::Output qw(output_html_with_http_headers);
> use C4::Creators;
> use C4::Labels;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {
>         template_name   => "labels/label-manage.tt",
>diff --git a/labels/label-print.pl b/labels/label-print.pl
>index 93b86790e06..22d15ec3277 100755
>--- a/labels/label-print.pl
>+++ b/labels/label-print.pl
>@@ -28,7 +28,7 @@ use C4::Output qw(output_html_with_http_headers);
> use C4::Creators::Lib qw(get_all_templates get_all_layouts get_output_formats);
> use C4::Labels::Batch;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {
>         template_name   => "labels/label-print.tt",
>diff --git a/labels/spinelabel-home.pl b/labels/spinelabel-home.pl
>index defd2ef03e4..74f2f1d1b0f 100755
>--- a/labels/spinelabel-home.pl
>+++ b/labels/spinelabel-home.pl
>@@ -23,7 +23,7 @@ use C4::Context;
> 
> # use Smart::Comments;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {   template_name   => "labels/spinelabel-home.tt",
>         query           => $query,
>diff --git a/labels/spinelabel-print.pl b/labels/spinelabel-print.pl
>index 55c26bed37a..f34c1f811d4 100755
>--- a/labels/spinelabel-print.pl
>+++ b/labels/spinelabel-print.pl
>@@ -21,7 +21,7 @@ use C4::Auth;
> use C4::Output;
> 
> my $scheme = C4::Context->preference('SpineLabelFormat');
>-my $query  = new CGI;
>+my $query  = CGI->new;
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {   template_name   => "labels/spinelabel-print.tt",
>         query           => $query,
>diff --git a/mainpage.pl b/mainpage.pl
>index 9ec4ae31dbc..183b5e0fcd2 100755
>--- a/mainpage.pl
>+++ b/mainpage.pl
>@@ -34,7 +34,7 @@ use Koha::ProblemReports;
> use Koha::Quotes;
> use Koha::Suggestions;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> 
> my ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user(
>     {
>diff --git a/members/accountline-details.pl b/members/accountline-details.pl
>index 5e0b82da3aa..a5c37079aa2 100755
>--- a/members/accountline-details.pl
>+++ b/members/accountline-details.pl
>@@ -26,7 +26,7 @@ use C4::Context;
> use Koha::Patrons;
> use Koha::Account::Lines;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {
>diff --git a/members/apikeys.pl b/members/apikeys.pl
>index 619fc30b8a8..fb9051d1c49 100755
>--- a/members/apikeys.pl
>+++ b/members/apikeys.pl
>@@ -28,7 +28,7 @@ use Koha::ApiKeys;
> use Koha::Patrons;
> use Koha::Token;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {   template_name   => 'members/apikeys.tt',
>diff --git a/members/boraccount.pl b/members/boraccount.pl
>index 71546a7efcd..cf593b6c764 100755
>--- a/members/boraccount.pl
>+++ b/members/boraccount.pl
>@@ -35,7 +35,7 @@ use Koha::Patrons;
> use Koha::Patron::Categories;
> use Koha::Items;
> 
>-my $input=new CGI;
>+my $input=CGI->new;
> 
> 
> my ($template, $loggedinuser, $cookie) = get_template_and_user(
>diff --git a/members/deletemem.pl b/members/deletemem.pl
>index 389a79c4d54..8980344df15 100755
>--- a/members/deletemem.pl
>+++ b/members/deletemem.pl
>@@ -33,7 +33,7 @@ use Koha::Patrons;
> use Koha::Token;
> use Koha::Patron::Categories;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> my ($template, $loggedinuser, $cookie)
>                 = get_template_and_user({template_name => "members/deletemem.tt",
>diff --git a/members/discharge.pl b/members/discharge.pl
>index 46b12b02b31..7e055c6fd81 100755
>--- a/members/discharge.pl
>+++ b/members/discharge.pl
>@@ -41,7 +41,7 @@ use Koha::Patrons;
> 
> use Koha::DateUtils;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> my ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user({
>     template_name   => 'members/discharge.tt',
>diff --git a/members/discharges.pl b/members/discharges.pl
>index f7ce929cf69..de19751ee08 100755
>--- a/members/discharges.pl
>+++ b/members/discharges.pl
>@@ -25,7 +25,7 @@ use C4::Output;
> use C4::Context;
> use Koha::Patron::Discharge;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> my $op = $input->param('op') // 'list';
> 
> my ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user({
>diff --git a/members/guarantor_search.pl b/members/guarantor_search.pl
>index 6b03a925652..3bd41658671 100755
>--- a/members/guarantor_search.pl
>+++ b/members/guarantor_search.pl
>@@ -26,7 +26,7 @@ use C4::Members;
> 
> use Koha::Patron::Categories;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> my $dbh = C4::Context->dbh;
> 
>diff --git a/members/ill-requests.pl b/members/ill-requests.pl
>index e60f95f84fe..61737d73981 100755
>--- a/members/ill-requests.pl
>+++ b/members/ill-requests.pl
>@@ -24,7 +24,7 @@ use C4::Auth;
> use C4::Output;
> use Koha::Patrons;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {
>diff --git a/members/mancredit.pl b/members/mancredit.pl
>index f0955d14360..c691bc05a36 100755
>--- a/members/mancredit.pl
>+++ b/members/mancredit.pl
>@@ -38,7 +38,7 @@ use Koha::Account::CreditTypes;
> 
> use Koha::Token;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {
>         template_name   => "members/mancredit.tt",
>diff --git a/members/maninvoice.pl b/members/maninvoice.pl
>index 9ef1615cd73..a178a2be380 100755
>--- a/members/maninvoice.pl
>+++ b/members/maninvoice.pl
>@@ -42,7 +42,7 @@ use Koha::Old::Checkouts;
> use Koha::Patron::Categories;
> use Koha::Account::DebitTypes;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {
>         template_name   => "members/maninvoice.tt",
>diff --git a/members/member-flags.pl b/members/member-flags.pl
>index 75fb9f2ca82..6ba2005ff99 100755
>--- a/members/member-flags.pl
>+++ b/members/member-flags.pl
>@@ -19,7 +19,7 @@ use Koha::Patrons;
> use C4::Output;
> use Koha::Token;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> my $flagsrequired = { permissions => 1 };
> my $member=$input->param('member');
>diff --git a/members/member-password.pl b/members/member-password.pl
>index be83ab2269c..323eb88f850 100755
>--- a/members/member-password.pl
>+++ b/members/member-password.pl
>@@ -21,7 +21,7 @@ use Koha::Patron::Categories;
> 
> use Try::Tiny;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> my $theme = $input->param('theme') || "default";
> 
>diff --git a/members/member.pl b/members/member.pl
>index d31f43aac27..970015b22e7 100755
>--- a/members/member.pl
>+++ b/members/member.pl
>@@ -31,7 +31,7 @@ use Koha::DateUtils;
> use Koha::List::Patron;
> use Koha::Patrons;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> my ($template, $loggedinuser, $cookie)
>     = get_template_and_user({template_name => "members/member.tt",
>diff --git a/members/memberentry.pl b/members/memberentry.pl
>index bd1509eb09c..221026acb90 100755
>--- a/members/memberentry.pl
>+++ b/members/memberentry.pl
>@@ -55,7 +55,7 @@ BEGIN {
> 	$debug = $ENV{DEBUG} || 0;
> }
> 	
>-my $input = new CGI;
>+my $input = CGI->new;
> ($debug) or $debug = $input->param('debug') || 0;
> my %data;
> 
>diff --git a/members/members-home.pl b/members/members-home.pl
>index a5ad3e16577..4dc06b13195 100755
>--- a/members/members-home.pl
>+++ b/members/members-home.pl
>@@ -28,7 +28,7 @@ use Koha::Libraries;
> use Koha::List::Patron;
> use Koha::Patron::Categories;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> 
> my ($template, $loggedinuser, $cookie, $flags)
>     = get_template_and_user({template_name => "members/member.tt",
>diff --git a/members/members-update-do.pl b/members/members-update-do.pl
>index fde62c7a0dd..81a746ac41c 100755
>--- a/members/members-update-do.pl
>+++ b/members/members-update-do.pl
>@@ -25,7 +25,7 @@ use C4::Context;
> use Koha::Patrons;
> use Koha::Patron::Modifications;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> 
> # FIXME Should be a checkauth call
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>diff --git a/members/members-update.pl b/members/members-update.pl
>index 650056c9c7c..acccb2b3800 100755
>--- a/members/members-update.pl
>+++ b/members/members-update.pl
>@@ -31,7 +31,7 @@ use Koha::Patrons;
> 
> use List::MoreUtils qw( uniq );
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> 
> my ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user(
>     {   template_name   => "members/members-update.tt",
>diff --git a/members/merge-patrons.pl b/members/merge-patrons.pl
>index 0d1d17afcbc..ca03168b001 100755
>--- a/members/merge-patrons.pl
>+++ b/members/merge-patrons.pl
>@@ -26,7 +26,7 @@ use C4::Output;
> use C4::Context;
> use Koha::Patrons;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> my ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user(
>     {
>diff --git a/members/mod_debarment.pl b/members/mod_debarment.pl
>index cf129e20726..1b7d4a4e914 100755
>--- a/members/mod_debarment.pl
>+++ b/members/mod_debarment.pl
>@@ -25,7 +25,7 @@ use C4::Auth;
> use Koha::DateUtils;
> use Koha::Patron::Debarments;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> my ( $loggedinuserid, $cookie, $sessionID ) = checkauth( $cgi, 0, { borrowers => 'edit_borrowers' }, 'intranet' );
> 
>diff --git a/members/notices.pl b/members/notices.pl
>index ece7be8c3c3..40bc6edf357 100755
>--- a/members/notices.pl
>+++ b/members/notices.pl
>@@ -28,7 +28,7 @@ use C4::Letters;
> use Koha::Patrons;
> use Koha::Patron::Categories;
> 
>-my $input=new CGI;
>+my $input=CGI->new;
> 
> 
> my $borrowernumber = $input->param('borrowernumber');
>diff --git a/members/patronimage.pl b/members/patronimage.pl
>index f3534c3df4d..42a82b92838 100755
>--- a/members/patronimage.pl
>+++ b/members/patronimage.pl
>@@ -31,7 +31,7 @@ use Koha::Patron::Images;
> $|=1;
> 
> my $DEBUG = 0;
>-my $query = new CGI;
>+my $query = CGI->new;
> my $borrowernumber;
> 
> =head1 NAME
>diff --git a/members/print_overdues.pl b/members/print_overdues.pl
>index a642f35e2bc..4c4bcc2914d 100755
>--- a/members/print_overdues.pl
>+++ b/members/print_overdues.pl
>@@ -28,7 +28,7 @@ use C4::Overdues qw(parse_overdues_letter);
> 
> use Koha::Patrons;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> my $flagsrequired = { circulate => "circulate_remaining_permissions" };
> 
>diff --git a/members/printfeercpt.pl b/members/printfeercpt.pl
>index 079b23e7e1a..57779718685 100755
>--- a/members/printfeercpt.pl
>+++ b/members/printfeercpt.pl
>@@ -35,7 +35,7 @@ use Koha::DateUtils;
> use Koha::Patrons;
> use Koha::Patron::Categories;
> 
>-my $input=new CGI;
>+my $input=CGI->new;
> 
> 
> my ($template, $loggedinuser, $cookie)
>diff --git a/members/printinvoice.pl b/members/printinvoice.pl
>index f2ad628efd4..9fd49fb1788 100755
>--- a/members/printinvoice.pl
>+++ b/members/printinvoice.pl
>@@ -33,7 +33,7 @@ use Koha::Account::Lines;
> use Koha::Patrons;
> use Koha::Patron::Categories;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {   template_name   => "members/printinvoice.tt",
>diff --git a/members/printslip.pl b/members/printslip.pl
>index e59c625f912..debbbded6c4 100755
>--- a/members/printslip.pl
>+++ b/members/printslip.pl
>@@ -49,7 +49,7 @@ BEGIN {
> 	$debug = $ENV{DEBUG} || 0;
> }
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> my $sessionID = $input->cookie("CGISESSID");
> my $session = get_session($sessionID);
> 
>diff --git a/members/purchase-suggestions.pl b/members/purchase-suggestions.pl
>index 63c0aad855b..ae1e021ff3e 100755
>--- a/members/purchase-suggestions.pl
>+++ b/members/purchase-suggestions.pl
>@@ -27,7 +27,7 @@ use C4::Members;
> use C4::Suggestions;
> use Koha::Patrons;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {   template_name   => "members/purchase-suggestions.tt",
>diff --git a/members/routing-lists.pl b/members/routing-lists.pl
>index 67f7a33b031..dee5845a0dd 100755
>--- a/members/routing-lists.pl
>+++ b/members/routing-lists.pl
>@@ -27,7 +27,7 @@ use C4::Serials;
> use Koha::Patrons;
> use CGI::Session;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> 
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user (
>     {
>diff --git a/members/setstatus.pl b/members/setstatus.pl
>index a98d5554c1b..66ae8b586c6 100755
>--- a/members/setstatus.pl
>+++ b/members/setstatus.pl
>@@ -32,7 +32,7 @@ use C4::Auth;
> use Koha::Patrons;
> 
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> my ( $loggedinuserid ) = checkauth($input, 0, { borrowers => 'edit_borrowers' }, 'intranet');
> 
>diff --git a/members/statistics.pl b/members/statistics.pl
>index b6d5df66fa1..93367b3ed79 100755
>--- a/members/statistics.pl
>+++ b/members/statistics.pl
>@@ -33,7 +33,7 @@ use C4::Output;
> use Koha::Patrons;
> use Koha::Patron::Categories;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {   template_name   => "members/statistics.tt",
>diff --git a/members/update-child.pl b/members/update-child.pl
>index f138b1179f1..0789ea553f0 100755
>--- a/members/update-child.pl
>+++ b/members/update-child.pl
>@@ -38,7 +38,7 @@ use Koha::Patrons;
> # use Smart::Comments;
> 
> my $dbh   = C4::Context->dbh;
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {
>diff --git a/misc/batchImportMARCWithBiblionumbers.pl b/misc/batchImportMARCWithBiblionumbers.pl
>index 02f275d61da..f8a12b5c5cf 100755
>--- a/misc/batchImportMARCWithBiblionumbers.pl
>+++ b/misc/batchImportMARCWithBiblionumbers.pl
>@@ -78,7 +78,7 @@ sub search {
> 		return("error",undef);
> 	}
> 	my $oAResult;
>-	my $Anewq= new ZOOM::Query::PQF($nquery);
>+	my $Anewq= ZOOM::Query::PQF->new($nquery);
> 	eval {
> 	$oAResult= $oAuth->search_pqf($nquery) ; 
> 	};
>diff --git a/misc/cronjobs/check-url.pl b/misc/cronjobs/check-url.pl
>index 68a7b8e788a..429a99110c4 100755
>--- a/misc/cronjobs/check-url.pl
>+++ b/misc/cronjobs/check-url.pl
>@@ -88,7 +88,7 @@ sub new {
>     my $self = {};
>     my ($class, $timeout, $agent) = @_;
>     
>-    my $uagent = new LWP::UserAgent;
>+    my $uagent = LWP::UserAgent->new;
>     $uagent->agent( $agent ) if $agent;
>     $uagent->timeout( $timeout) if $timeout;
>     $self->{ user_agent } = $uagent;
>@@ -192,7 +192,7 @@ sub check_all_url {
>     my $checker = C4::URL::Checker->new($timeout,$agent);
>     $checker->{ host_default }  = $host;
>     
>-    my $context = new C4::Context(  );  
>+    my $context = C4::Context->new(  );
>     my $dbh = $context->dbh;
>     my $sth = $dbh->prepare( 
>         "SELECT biblionumber FROM biblioitems WHERE url <> ''" );
>diff --git a/misc/cronjobs/cloud-kw.pl b/misc/cronjobs/cloud-kw.pl
>index 46a972e719b..207312e3e13 100755
>--- a/misc/cronjobs/cloud-kw.pl
>+++ b/misc/cronjobs/cloud-kw.pl
>@@ -78,7 +78,7 @@ for my $cloud ( @clouds ) {
>         }
>     }
> 
>-    my $index = new ZebraIndex( $cloud->{ZebraIndex} );
>+    my $index = ZebraIndex->new( $cloud->{ZebraIndex} );
>     $index->scan( $cloud->{Count} );
> 
>     open my $fh, ">", $cloud->{Output}
>diff --git a/misc/cronjobs/gather_print_notices.pl b/misc/cronjobs/gather_print_notices.pl
>index 10cf6304e5c..ec9e32c2ce7 100755
>--- a/misc/cronjobs/gather_print_notices.pl
>+++ b/misc/cronjobs/gather_print_notices.pl
>@@ -209,7 +209,7 @@ sub generate_html {
> 
>     my $template =
>       C4::Templates::gettemplate( 'batch/print-notices.tt', 'intranet',
>-        new CGI );
>+        CGI->new );
> 
>     $template->param(
>         stylesheet => C4::Context->preference("NoticeCSS"),
>diff --git a/misc/maintenance/UNIMARC_sync_date_created_with_marc_biblio.pl b/misc/maintenance/UNIMARC_sync_date_created_with_marc_biblio.pl
>index e3db4d49fed..5e0cd37fcc4 100755
>--- a/misc/maintenance/UNIMARC_sync_date_created_with_marc_biblio.pl
>+++ b/misc/maintenance/UNIMARC_sync_date_created_with_marc_biblio.pl
>@@ -144,13 +144,13 @@ sub updateMarc {
>     unless ($c_marc_field) {
>         if ( defined $c_subfield ) {
>             $biblio->add_fields(
>-                new MARC::Field(
>+                MARC::Field->new(
>                     $c_field, ' ', ' ', $c_subfield => $c_db_value
>                 )
>             );
>         }
>         else {
>-            $biblio->add_fields( new MARC::Field( $c_field, $c_db_value ) );
>+            $biblio->add_fields( MARC::Field->new( $c_field, $c_db_value ) );
>         }
>         $debug and warn "[WARN] $c_field did not exist.";
>         $c_marc_field = $biblio->field($c_field);
>@@ -173,13 +173,13 @@ sub updateMarc {
>     unless ($m_marc_field) {
>         if ( defined $m_subfield ) {
>             $biblio->add_fields(
>-                new MARC::Field(
>+                MARC::Field->new(
>                     $m_field, ' ', ' ', $m_subfield => $m_db_value
>                 )
>             );
>         }
>         else {
>-            $biblio->add_fields( new MARC::Field( $m_field, $m_db_value ) );
>+            $biblio->add_fields( MARC::Field->new( $m_field, $m_db_value ) );
>         }
> 
>         $debug and warn "[WARN] $m_field did not exist.";
>diff --git a/misc/migration_tools/ifla/update.pl b/misc/migration_tools/ifla/update.pl
>index b736bf88adf..6f84cdc74bc 100755
>--- a/misc/migration_tools/ifla/update.pl
>+++ b/misc/migration_tools/ifla/update.pl
>@@ -84,7 +84,7 @@ my @subfields = @{ $biblio->{subfields} };
> 
> my $translations = {};
> if ($dump_pot) {
>-    $translations->{''} = new Locale::PO(
>+    $translations->{''} = Locale::PO->new(
>         -msgid => '',
>         -msgstr => "Project-Id-Version: Koha\n" .
>             "POT-Creation-Date: " . time2str('%Y-%m-%d %R%z', time) . "\n" .
>@@ -94,38 +94,38 @@ if ($dump_pot) {
>     );
>     while (my ($category, $values) = each %$authorised_values) {
>         foreach my $authorised_value (@$values) {
>-            $translations->{$authorised_value->{lib}} = new Locale::PO(
>+            $translations->{$authorised_value->{lib}} = Locale::PO->new(
>                 -msgid => $authorised_value->{lib},
>                 -msgstr => '',
>             );
>         }
>     }
>     for my $tag (@tags) {
>-        $translations->{$tag->{liblibrarian}} = new Locale::PO(
>+        $translations->{$tag->{liblibrarian}} = Locale::PO->new(
>             -msgid => $tag->{liblibrarian},
>             -msgstr => '',
>         );
>     }
>     for my $subfield (@subfields) {
>-        $translations->{$subfield->{liblibrarian}} = new Locale::PO(
>+        $translations->{$subfield->{liblibrarian}} = Locale::PO->new(
>             -msgid => $subfield->{liblibrarian},
>             -msgstr => '',
>         );
>     }
>     for my $authtype (@$authtypes) {
>-        $translations->{$authtype->{authtypetext}} = new Locale::PO(
>+        $translations->{$authtype->{authtypetext}} = Locale::PO->new(
>             -msgid => $authtype->{authtypetext},
>             -msgstr => '',
>         );
>     }
>     for my $authtag (@authtags) {
>-        $translations->{$authtag->{liblibrarian}} = new Locale::PO(
>+        $translations->{$authtag->{liblibrarian}} = Locale::PO->new(
>             -msgid => $authtag->{liblibrarian},
>             -msgstr => '',
>         );
>     }
>     for my $authsubfield (@authsubfields) {
>-        $translations->{$authsubfield->{liblibrarian}} = new Locale::PO(
>+        $translations->{$authsubfield->{liblibrarian}} = Locale::PO->new(
>             -msgid => $authsubfield->{liblibrarian},
>             -msgstr => '',
>         );;
>diff --git a/misc/translator/LangInstaller.pm b/misc/translator/LangInstaller.pm
>index b9c5c0d1619..456532d1016 100644
>--- a/misc/translator/LangInstaller.pm
>+++ b/misc/translator/LangInstaller.pm
>@@ -476,7 +476,7 @@ sub get_po_from_target {
>     my $target = shift;
> 
>     my $po;
>-    my $po_head = new Locale::PO;
>+    my $po_head = Locale::PO->new;
>     $po_head->{msgid}  = "\"\"";
>     $po_head->{msgstr} = "".
>         "Project-Id-Version: Koha Project - Installation files\\n" .
>@@ -516,7 +516,7 @@ sub get_po_from_target {
>                                 $line =~ s/(<<.*?>>|\[\%.*?\%\]|<.*?>)/\%s/g;                                   # put placeholders
>                                 next if ( $line =~ /^(\s|%s|-|[[:punct:]]|$|$)*$/ or length($line) < 2 );     # discard non strings
>                                 if ( not $po->{ $line } ) {
>-                                    my $msg = new Locale::PO(
>+                                    my $msg = Locale::PO->new(
>                                                 -msgid => $line, -msgstr => '',
>                                                 -reference => "$dir/$file:$table_name:$tablec:row:$rowc:mul:$mulc" );
>                                     $po->{ $line } = $msg;
>@@ -525,7 +525,7 @@ sub get_po_from_target {
>                         } else {
>                             if ( defined $row->{$field} and length($row->{$field}) > 1                         # discard null values and small strings
>                                  and not $po->{ $row->{$field} } ) {
>-                                my $msg = new Locale::PO(
>+                                my $msg = Locale::PO->new(
>                                             -msgid => $row->{$field}, -msgstr => '',
>                                             -reference => "$dir/$file:$table_name:$tablec:row:$rowc" );
>                                 $po->{ $row->{$field} } = $msg;
>@@ -538,7 +538,7 @@ sub get_po_from_target {
>             for my $description ( @{ $yaml->{'description'} } ) {
>                 $desccount++;
>                 if ( length($description) > 1 and not $po->{ $description } ) {
>-                    my $msg = new Locale::PO(
>+                    my $msg = Locale::PO->new(
>                                 -msgid => $description, -msgstr => '',
>                                 -reference => "$dir/$file:description:$desccount" );
>                     $po->{ $description } = $msg;
>diff --git a/misc/translator/po2json b/misc/translator/po2json
>index 44cab9029e6..410bd68c41f 100755
>--- a/misc/translator/po2json
>+++ b/misc/translator/po2json
>@@ -165,7 +165,7 @@ sub main
>     }
> 
> 
>-    my $jsonobj = new JSON;
>+    my $jsonobj = JSON->new;
>     my $basename = basename($src);
>     $basename =~ s/\.pot?$//;
>     if ($pretty)
>diff --git a/offline_circ/download.pl b/offline_circ/download.pl
>index 386faebf418..63ed34bdb66 100755
>--- a/offline_circ/download.pl
>+++ b/offline_circ/download.pl
>@@ -25,7 +25,7 @@ use C4::Output;
> use C4::Context;
> use C4::Koha;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> checkauth( $query, undef, { circulate => "circulate_remaining_permissions" },
>     "intranet" );
> 
>diff --git a/opac/clubs/clubs-tab.pl b/opac/clubs/clubs-tab.pl
>index bb73d0ba074..312f9b10f40 100755
>--- a/opac/clubs/clubs-tab.pl
>+++ b/opac/clubs/clubs-tab.pl
>@@ -25,7 +25,7 @@ use C4::Auth;
> use C4::Output;
> use Koha::Patrons;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {
>diff --git a/opac/clubs/enroll.pl b/opac/clubs/enroll.pl
>index 5d16a4a46ca..f486c7dfd28 100755
>--- a/opac/clubs/enroll.pl
>+++ b/opac/clubs/enroll.pl
>@@ -25,7 +25,7 @@ use C4::Auth;
> use C4::Output;
> use Koha::Clubs;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {
>diff --git a/opac/errors/400.pl b/opac/errors/400.pl
>index 4ed8cc410f2..f1dc8da77a1 100755
>--- a/opac/errors/400.pl
>+++ b/opac/errors/400.pl
>@@ -22,7 +22,7 @@ use C4::Auth;
> use C4::Output;
> use C4::Context;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> my $admin = C4::Context->preference('KohaAdminEmailAddress');
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {
>diff --git a/opac/errors/401.pl b/opac/errors/401.pl
>index 59e373f0cfd..a3358a7ea27 100755
>--- a/opac/errors/401.pl
>+++ b/opac/errors/401.pl
>@@ -22,7 +22,7 @@ use C4::Auth;
> use C4::Output;
> use C4::Context;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> my $admin = C4::Context->preference('KohaAdminEmailAddress');
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {
>diff --git a/opac/errors/402.pl b/opac/errors/402.pl
>index 80256e790d8..7dc8c9b99eb 100755
>--- a/opac/errors/402.pl
>+++ b/opac/errors/402.pl
>@@ -22,7 +22,7 @@ use C4::Auth;
> use C4::Output;
> use C4::Context;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> my $admin = C4::Context->preference('KohaAdminEmailAddress');
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {
>diff --git a/opac/errors/403.pl b/opac/errors/403.pl
>index 3ea0306d993..ced08dd8ba5 100755
>--- a/opac/errors/403.pl
>+++ b/opac/errors/403.pl
>@@ -22,7 +22,7 @@ use C4::Auth;
> use C4::Output;
> use C4::Context;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> my $admin = C4::Context->preference('KohaAdminEmailAddress');
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {
>diff --git a/opac/errors/404.pl b/opac/errors/404.pl
>index 5d2149507c4..0ac32ca96cf 100755
>--- a/opac/errors/404.pl
>+++ b/opac/errors/404.pl
>@@ -22,7 +22,7 @@ use C4::Auth;
> use C4::Output;
> use C4::Context;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> my $admin = C4::Context->preference('KohaAdminEmailAddress');
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {
>diff --git a/opac/errors/500.pl b/opac/errors/500.pl
>index f129a32cdbc..22d86647d63 100755
>--- a/opac/errors/500.pl
>+++ b/opac/errors/500.pl
>@@ -22,7 +22,7 @@ use C4::Auth;
> use C4::Output;
> use C4::Context;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> my $admin = C4::Context->preference('KohaAdminEmailAddress');
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {
>diff --git a/opac/external/overdrive/auth.pl b/opac/external/overdrive/auth.pl
>index 97604c778f8..f534c24885c 100755
>--- a/opac/external/overdrive/auth.pl
>+++ b/opac/external/overdrive/auth.pl
>@@ -27,7 +27,7 @@ use Koha::Logger;
> use Koha::ExternalContent::OverDrive;
> 
> my $logger = Koha::Logger->get({ interface => 'opac' });
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> my ( $user, $cookie, $sessionID, $flags ) = checkauth( $cgi, 1, {}, 'opac' );
> my ($redirect_page, $error);
>diff --git a/opac/ilsdi.pl b/opac/ilsdi.pl
>index e1215cf75b7..1b785211ced 100755
>--- a/opac/ilsdi.pl
>+++ b/opac/ilsdi.pl
>@@ -39,7 +39,7 @@ outputs the returned hashref as XML.
> =cut
> 
> # Instanciate the CGI request
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> # List of available services, sorted by level
> my @services = (
>diff --git a/opac/maintenance.pl b/opac/maintenance.pl
>index 380cf20db7a..7ec3ec80932 100755
>--- a/opac/maintenance.pl
>+++ b/opac/maintenance.pl
>@@ -24,7 +24,7 @@ use C4::Templates qw/gettemplate/;
> 
> use Koha;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> my $template = C4::Templates::gettemplate( 'maintenance.tt', 'opac', $query );
> 
> my $koha_db_version = C4::Context->preference('Version');
>diff --git a/opac/opac-account-pay-paypal-return.pl b/opac/opac-account-pay-paypal-return.pl
>index fd33e7217d7..5fb9b8c1a39 100755
>--- a/opac/opac-account-pay-paypal-return.pl
>+++ b/opac/opac-account-pay-paypal-return.pl
>@@ -32,7 +32,7 @@ use Koha::Acquisition::Currencies;
> use Koha::Database;
> use Koha::Patrons;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> unless ( C4::Context->preference('EnablePayPalOpacPayments') ) {
>     print $cgi->redirect("/cgi-bin/koha/errors/404.pl");
>diff --git a/opac/opac-account-pay-return.pl b/opac/opac-account-pay-return.pl
>index 21a8b2f9cfa..841f84fbde9 100755
>--- a/opac/opac-account-pay-return.pl
>+++ b/opac/opac-account-pay-return.pl
>@@ -24,7 +24,7 @@ use CGI;
> use C4::Auth;
> use Koha::Plugins::Handler;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> my ( $userid, $cookie, $sessionID, $flags ) = checkauth( $cgi, 0, {}, 'opac' );
> 
>diff --git a/opac/opac-account-pay.pl b/opac/opac-account-pay.pl
>index e731280892e..69384dbacaa 100755
>--- a/opac/opac-account-pay.pl
>+++ b/opac/opac-account-pay.pl
>@@ -33,7 +33,7 @@ use Koha::Acquisition::Currencies;
> use Koha::Database;
> use Koha::Plugins::Handler;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> my $payment_method = $cgi->param('payment_method');
> my @accountlines   = $cgi->multi_param('accountline');
> 
>diff --git a/opac/opac-account.pl b/opac/opac-account.pl
>index 15222de46b9..8442281b364 100755
>--- a/opac/opac-account.pl
>+++ b/opac/opac-account.pl
>@@ -28,7 +28,7 @@ use Koha::Account::Lines;
> use Koha::Patrons;
> use Koha::Plugins;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
>     {
>         template_name   => "opac-account.tt",
>diff --git a/opac/opac-addbybiblionumber.pl b/opac/opac-addbybiblionumber.pl
>index 16ec335180c..3563dfc300d 100755
>--- a/opac/opac-addbybiblionumber.pl
>+++ b/opac/opac-addbybiblionumber.pl
>@@ -28,7 +28,7 @@ use C4::Auth;
> use Koha::Biblios;
> use Koha::Virtualshelves;
> 
>-my $query           = new CGI;
>+my $query           = CGI->new;
> my @biblionumbers   = $query->multi_param('biblionumber');
> my $selectedshelf   = $query->param('selectedshelf');
> my $newshelf        = $query->param('newshelf');
>diff --git a/opac/opac-alert-subscribe.pl b/opac/opac-alert-subscribe.pl
>index 66d2bf98075..08226e5cb34 100755
>--- a/opac/opac-alert-subscribe.pl
>+++ b/opac/opac-alert-subscribe.pl
>@@ -28,7 +28,7 @@ use C4::Letters;
> use C4::Serials;
> 
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> my $op    = $query->param('op') || '';
> my $dbh   = C4::Context->dbh;
> 
>diff --git a/opac/opac-article-request-cancel.pl b/opac/opac-article-request-cancel.pl
>index 2291249b2d9..11893f656dc 100755
>--- a/opac/opac-article-request-cancel.pl
>+++ b/opac/opac-article-request-cancel.pl
>@@ -25,7 +25,7 @@ use C4::Output;
> use C4::Auth;
> use Koha::ArticleRequests;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> 
> my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
>     {
>diff --git a/opac/opac-authorities-home.pl b/opac/opac-authorities-home.pl
>index 059cbb44c5a..2b9488381f7 100755
>--- a/opac/opac-authorities-home.pl
>+++ b/opac/opac-authorities-home.pl
>@@ -35,7 +35,7 @@ use Koha::Authority::Types;
> use Koha::SearchEngine::Search;
> use Koha::SearchEngine::QueryBuilder;
> 
>-my $query        = new CGI;
>+my $query        = CGI->new;
> my $op           = $query->param('op') || '';
> my $authtypecode = $query->param('authtypecode') || '';
> my $dbh          = C4::Context->dbh;
>diff --git a/opac/opac-authoritiesdetail.pl b/opac/opac-authoritiesdetail.pl
>index b35df75b8d4..952bef3cf94 100755
>--- a/opac/opac-authoritiesdetail.pl
>+++ b/opac/opac-authoritiesdetail.pl
>@@ -50,7 +50,7 @@ use C4::Koha;
> use Koha::Authorities;
> use Koha::Authority::Types;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> 
> my $dbh = C4::Context->dbh;
> 
>diff --git a/opac/opac-basket.pl b/opac/opac-basket.pl
>index 1713de49935..14c44c4bee3 100755
>--- a/opac/opac-basket.pl
>+++ b/opac/opac-basket.pl
>@@ -29,7 +29,7 @@ use Koha::RecordProcessor;
> use Koha::CsvProfiles;
> use Koha::AuthorisedValues;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> 
> my ( $template, $borrowernumber, $cookie ) = get_template_and_user (
>     {
>diff --git a/opac/opac-blocked.pl b/opac/opac-blocked.pl
>index 3d2f2333b70..2876823c46e 100755
>--- a/opac/opac-blocked.pl
>+++ b/opac/opac-blocked.pl
>@@ -23,7 +23,7 @@ use C4::Auth;
> use C4::Output;
> use C4::Context;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
>     {
>         template_name   => "opac-blocked.tt",
>diff --git a/opac/opac-browse.pl b/opac/opac-browse.pl
>index cdc94bf4a69..bbad0d4f510 100755
>--- a/opac/opac-browse.pl
>+++ b/opac/opac-browse.pl
>@@ -34,7 +34,7 @@ use Koha::SearchEngine::Elasticsearch::Search;
> use JSON;
> use Unicode::Collate;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> binmode STDOUT, ':encoding(UTF-8)';
> 
> # If calling via JS, 'api' is used to route to correct step in process
>diff --git a/opac/opac-browser.pl b/opac/opac-browser.pl
>index 519472f9403..67851e90536 100755
>--- a/opac/opac-browser.pl
>+++ b/opac/opac-browser.pl
>@@ -32,7 +32,7 @@ use C4::Output;
> use CGI qw ( -utf8 );
> use C4::Biblio;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> 
> my $dbh = C4::Context->dbh;
> 
>diff --git a/opac/opac-changelanguage.pl b/opac/opac-changelanguage.pl
>index 895bc80c4da..eb1c2960749 100755
>--- a/opac/opac-changelanguage.pl
>+++ b/opac/opac-changelanguage.pl
>@@ -20,7 +20,7 @@ use CGI qw ( -utf8 );
> use C4::Templates;
> use Koha::Util::Navigation;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> my $language = $query->param('language');
> my $url = Koha::Util::Navigation::local_referer($query, { remove_language => 1 });
> 
>diff --git a/opac/opac-course-details.pl b/opac/opac-course-details.pl
>index 3afa8a921a3..c7fe920b5ab 100755
>--- a/opac/opac-course-details.pl
>+++ b/opac/opac-course-details.pl
>@@ -28,7 +28,7 @@ use C4::Koha;
> 
> use C4::CourseReserves qw(GetCourse GetCourseReserves);
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
>     {   template_name   => "opac-course-details.tt",
>diff --git a/opac/opac-course-reserves.pl b/opac/opac-course-reserves.pl
>index de1498b77f4..f4cf89d7076 100755
>--- a/opac/opac-course-reserves.pl
>+++ b/opac/opac-course-reserves.pl
>@@ -27,7 +27,7 @@ use C4::Output;
> 
> use C4::CourseReserves qw(SearchCourses);
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
>     {   template_name   => "opac-course-reserves.tt",
>diff --git a/opac/opac-discharge.pl b/opac/opac-discharge.pl
>index 75b6af8056b..58141c64594 100755
>--- a/opac/opac-discharge.pl
>+++ b/opac/opac-discharge.pl
>@@ -30,7 +30,7 @@ use Koha::Patrons;
> use Koha::Patron::Discharge;
> use Koha::DateUtils;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> unless ( C4::Context->preference('useDischarge') ) {
>     print $input->redirect("/cgi-bin/koha/errors/404.pl");
>diff --git a/opac/opac-downloadshelf.pl b/opac/opac-downloadshelf.pl
>index 011fd0c5c53..99d14a73dae 100755
>--- a/opac/opac-downloadshelf.pl
>+++ b/opac/opac-downloadshelf.pl
>@@ -33,7 +33,7 @@ use Koha::RecordProcessor;
> use Koha::Virtualshelves;
> 
> use utf8;
>-my $query = new CGI;
>+my $query = CGI->new;
> 
> # if virtualshelves is disabled, leave immediately
> if ( ! C4::Context->preference('virtualshelves') ) {
>diff --git a/opac/opac-ics.pl b/opac/opac-ics.pl
>index 94ea5fde91f..bbb9b5bf40e 100755
>--- a/opac/opac-ics.pl
>+++ b/opac/opac-ics.pl
>@@ -35,7 +35,7 @@ use C4::Circulation;
> use C4::Members;
> use Koha::DateUtils;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
>     {
>         template_name   => "opac-ics.tt",
>diff --git a/opac/opac-idref.pl b/opac/opac-idref.pl
>index ffd5505b711..8b95311f7ee 100755
>--- a/opac/opac-idref.pl
>+++ b/opac/opac-idref.pl
>@@ -30,7 +30,7 @@ use C4::Context;
> use C4::Search;
> use C4::Output;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
>     {
>         template_name   => "opac-idref.tt",
>diff --git a/opac/opac-illrequests.pl b/opac/opac-illrequests.pl
>index 4fa38524442..06012125a5a 100755
>--- a/opac/opac-illrequests.pl
>+++ b/opac/opac-illrequests.pl
>@@ -32,7 +32,7 @@ use Koha::Libraries;
> use Koha::Patrons;
> use Koha::Illrequest::Availability;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> 
> # Grab all passed data
> # 'our' since Plack changes the scoping
>diff --git a/opac/opac-image.pl b/opac/opac-image.pl
>index 7a94e81d52a..53129ad68e1 100755
>--- a/opac/opac-image.pl
>+++ b/opac/opac-image.pl
>@@ -32,7 +32,7 @@ use C4::Images;
> $| = 1;
> 
> my $DEBUG = 0;
>-my $data  = new CGI;
>+my $data  = CGI->new;
> my $imagenumber;
> 
> =head1 NAME
>diff --git a/opac/opac-imageviewer.pl b/opac/opac-imageviewer.pl
>index 09be474226d..09499612005 100755
>--- a/opac/opac-imageviewer.pl
>+++ b/opac/opac-imageviewer.pl
>@@ -27,7 +27,7 @@ use C4::Images;
> 
> use Koha::Biblios;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
>     {
>         template_name   => "opac-imageviewer.tt",
>diff --git a/opac/opac-issue-note.pl b/opac/opac-issue-note.pl
>index f682e183fd4..781a5326955 100755
>--- a/opac/opac-issue-note.pl
>+++ b/opac/opac-issue-note.pl
>@@ -31,7 +31,7 @@ use Koha::Checkouts;
> use Koha::DateUtils;
> use Koha::Patrons;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> 
> my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
>     {
>diff --git a/opac/opac-main.pl b/opac/opac-main.pl
>index 74755a05a52..c5728662844 100755
>--- a/opac/opac-main.pl
>+++ b/opac/opac-main.pl
>@@ -31,7 +31,7 @@ use Koha::Checkouts;
> use Koha::Holds;
> use Koha::News;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> my $dbh   = C4::Context->dbh;
> 
> my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
>diff --git a/opac/opac-memberentry.pl b/opac/opac-memberentry.pl
>index ee5771f4302..6b7afc01754 100755
>--- a/opac/opac-memberentry.pl
>+++ b/opac/opac-memberentry.pl
>@@ -45,7 +45,7 @@ use Koha::Patron::Modifications;
> use Koha::Patron::Categories;
> use Koha::Token;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> my $dbh = C4::Context->dbh;
> 
> my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
>diff --git a/opac/opac-modrequest-suspend.pl b/opac/opac-modrequest-suspend.pl
>index 046b049f624..ca95ddad396 100755
>--- a/opac/opac-modrequest-suspend.pl
>+++ b/opac/opac-modrequest-suspend.pl
>@@ -21,7 +21,7 @@ use CGI qw ( -utf8 );
> use C4::Output;
> use C4::Reserves;
> use C4::Auth;
>-my $query = new CGI;
>+my $query = CGI->new;
> my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
>     {
>         template_name   => "opac-account.tt",
>diff --git a/opac/opac-modrequest.pl b/opac/opac-modrequest.pl
>index 45fc6bc680c..d63781b8f92 100755
>--- a/opac/opac-modrequest.pl
>+++ b/opac/opac-modrequest.pl
>@@ -29,7 +29,7 @@ use C4::Output;
> use C4::Reserves;
> use C4::Auth;
> use Koha::Holds;
>-my $query = new CGI;
>+my $query = CGI->new;
> 
> my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
>     {   
>diff --git a/opac/opac-news-rss.pl b/opac/opac-news-rss.pl
>index 95cbd6da736..f8c2b0e485e 100755
>--- a/opac/opac-news-rss.pl
>+++ b/opac/opac-news-rss.pl
>@@ -25,7 +25,7 @@ use C4::Output;
> use C4::NewsChannels;    # GetNewsToDisplay
> use C4::Languages qw(getTranslatedLanguages accept_language);
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> my $dbh   = C4::Context->dbh;
> 
> my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
>diff --git a/opac/opac-overdrive-search.pl b/opac/opac-overdrive-search.pl
>index 632d2c49ee3..f61b22227e9 100755
>--- a/opac/opac-overdrive-search.pl
>+++ b/opac/opac-overdrive-search.pl
>@@ -24,7 +24,7 @@ use CGI qw ( -utf8 );
> use C4::Auth qw(:DEFAULT get_session);
> use C4::Output;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> # Getting the template and auth
> my ($template, $loggedinuser, $cookie)
>diff --git a/opac/opac-passwd.pl b/opac/opac-passwd.pl
>index 2e02d69f050..f6ab65075a0 100755
>--- a/opac/opac-passwd.pl
>+++ b/opac/opac-passwd.pl
>@@ -31,7 +31,7 @@ use Koha::Patrons;
> 
> use Try::Tiny;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> 
> my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
>     {
>diff --git a/opac/opac-password-recovery.pl b/opac/opac-password-recovery.pl
>index 3d492dd2055..57e13087c94 100755
>--- a/opac/opac-password-recovery.pl
>+++ b/opac/opac-password-recovery.pl
>@@ -11,7 +11,7 @@ use Koha::Patron::Password::Recovery
>   qw(SendPasswordRecoveryEmail ValidateBorrowernumber GetValidLinkInfo CompletePasswordRecovery DeleteExpiredPasswordRecovery);
> use Koha::Patrons;
> use Koha::Patrons;
>-my $query = new CGI;
>+my $query = CGI->new;
> use HTML::Entities;
> use Try::Tiny;
> use List::Util qw/any/;
>diff --git a/opac/opac-patron-consent.pl b/opac/opac-patron-consent.pl
>index 95c64496d4c..2de16abbe5b 100755
>--- a/opac/opac-patron-consent.pl
>+++ b/opac/opac-patron-consent.pl
>@@ -28,7 +28,7 @@ use Koha::Patrons;
> 
> use constant GDPR_PROCESSING => 'GDPR_PROCESSING';
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> my $op = $query->param('op') // q{};
> my $gdpr_check = $query->param('gdpr_processing') // q{};
> 
>diff --git a/opac/opac-patron-image.pl b/opac/opac-patron-image.pl
>index 6c24e484209..b40788db7ed 100755
>--- a/opac/opac-patron-image.pl
>+++ b/opac/opac-patron-image.pl
>@@ -25,7 +25,7 @@ use CGI::Cookie;  # need to check cookies before having CGI parse the POST reque
> use C4::Auth qw(:DEFAULT check_cookie_auth);
> use Koha::Patron::Images;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> 
> unless (C4::Context->preference('OPACpatronimages')) {
>     print $query->header(status => '403 Forbidden - displaying patron images in the OPAC not enabled');
>diff --git a/opac/opac-privacy.pl b/opac/opac-privacy.pl
>index 0b2d414a304..2b0ed98dc33 100755
>--- a/opac/opac-privacy.pl
>+++ b/opac/opac-privacy.pl
>@@ -24,7 +24,7 @@ use C4::Context;
> use C4::Output;
> use Koha::Patrons;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> 
> # if OPACPrivacy is disabled, leave immediately
> if ( ! C4::Context->preference('OPACPrivacy') || ! C4::Context->preference('opacreadinghistory') ) {
>diff --git a/opac/opac-readingrecord.pl b/opac/opac-readingrecord.pl
>index 5cd38b9141a..77b591bb4e2 100755
>--- a/opac/opac-readingrecord.pl
>+++ b/opac/opac-readingrecord.pl
>@@ -36,7 +36,7 @@ use Koha::Patrons;
> use Koha::ItemTypes;
> use Koha::Ratings;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> 
> # if opacreadinghistory is disabled, leave immediately
> if ( ! C4::Context->preference('opacreadinghistory') ) {
>diff --git a/opac/opac-recordedbooks-search.pl b/opac/opac-recordedbooks-search.pl
>index 4a390b37a54..1345080b855 100755
>--- a/opac/opac-recordedbooks-search.pl
>+++ b/opac/opac-recordedbooks-search.pl
>@@ -24,7 +24,7 @@ use CGI qw( -utf8 );
> use C4::Auth;
> use C4::Output;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {
>diff --git a/opac/opac-registration-verify.pl b/opac/opac-registration-verify.pl
>index f5cd15acd7a..71ea3292518 100755
>--- a/opac/opac-registration-verify.pl
>+++ b/opac/opac-registration-verify.pl
>@@ -29,7 +29,7 @@ use Koha::Patron::Consent;
> use Koha::Patron::Modifications;
> use Koha::Patron::Categories;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> my $dbh = C4::Context->dbh;
> 
> unless ( C4::Context->preference('PatronSelfRegistration') ) {
>diff --git a/opac/opac-renew.pl b/opac/opac-renew.pl
>index b1111d0e072..55b20ebdfd8 100755
>--- a/opac/opac-renew.pl
>+++ b/opac/opac-renew.pl
>@@ -32,7 +32,7 @@ use C4::Members;
> use Koha::Items;
> use Koha::Patrons;
> use Date::Calc qw( Today Date_to_Days );
>-my $query = new CGI;
>+my $query = CGI->new;
> 
> my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
> 	{
>diff --git a/opac/opac-reportproblem.pl b/opac/opac-reportproblem.pl
>index b7e133c3a7f..293f2826c08 100755
>--- a/opac/opac-reportproblem.pl
>+++ b/opac/opac-reportproblem.pl
>@@ -31,7 +31,7 @@ use Koha::Util::Navigation;
> use URI::Escape;
> use Encode;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
>     {
>diff --git a/opac/opac-request-article.pl b/opac/opac-request-article.pl
>index 30947363f68..d6ce08f8add 100755
>--- a/opac/opac-request-article.pl
>+++ b/opac/opac-request-article.pl
>@@ -27,7 +27,7 @@ use C4::Output;
> use Koha::Biblios;
> use Koha::Patrons;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
>     {
>diff --git a/opac/opac-reserve.pl b/opac/opac-reserve.pl
>index a930ddbf765..2e3a8352aba 100755
>--- a/opac/opac-reserve.pl
>+++ b/opac/opac-reserve.pl
>@@ -47,7 +47,7 @@ use List::MoreUtils qw/uniq/;
> 
> my $maxreserves = C4::Context->preference("maxreserves");
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> 
> # if RequestOnOpac (for placing holds) is disabled, leave immediately
> if ( ! C4::Context->preference('RequestOnOpac') ) {
>diff --git a/opac/opac-restrictedpage.pl b/opac/opac-restrictedpage.pl
>index 19d0f723589..e9a325a2f2f 100755
>--- a/opac/opac-restrictedpage.pl
>+++ b/opac/opac-restrictedpage.pl
>@@ -33,7 +33,7 @@ foreach my $IPRange ( split( ',', $localNetwork ) )
>     last if $withinNetwork;
> }
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
>     {
>         template_name   => "opac-restrictedpage.tt",
>diff --git a/opac/opac-review.pl b/opac/opac-review.pl
>index 6c0ac3e688e..9c277633848 100755
>--- a/opac/opac-review.pl
>+++ b/opac/opac-review.pl
>@@ -31,7 +31,7 @@ use Koha::DateUtils;
> use Koha::Review;
> use Koha::Reviews;
> 
>-my $query        = new CGI;
>+my $query        = CGI->new;
> my $biblionumber = $query->param('biblionumber');
> my $review       = $query->param('review');
> my $reviewid     = $query->param('reviewid');
>diff --git a/opac/opac-routing-lists.pl b/opac/opac-routing-lists.pl
>index 8e4771cce1d..6982c1657df 100755
>--- a/opac/opac-routing-lists.pl
>+++ b/opac/opac-routing-lists.pl
>@@ -23,7 +23,7 @@ use C4::Auth;
> use C4::Output;
> use Koha::Patrons;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> 
> unless ( C4::Context->preference('RoutingSerials') ) {
>     print $query->redirect("/cgi-bin/koha/errors/404.pl");
>diff --git a/opac/opac-search-history.pl b/opac/opac-search-history.pl
>index b058949984c..a9a4a73cea1 100755
>--- a/opac/opac-search-history.pl
>+++ b/opac/opac-search-history.pl
>@@ -32,7 +32,7 @@ use URI::Escape;
> use POSIX qw(strftime);
> 
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> # Getting the template and auth
> my ($template, $loggedinuser, $cookie) = get_template_and_user(
>diff --git a/opac/opac-search.pl b/opac/opac-search.pl
>index 0e679dab34b..2d1ac14e0ab 100755
>--- a/opac/opac-search.pl
>+++ b/opac/opac-search.pl
>@@ -73,7 +73,7 @@ my $DisplayMultiPlaceHold = C4::Context->preference("DisplayMultiPlaceHold");
> # create a new CGI object
> # FIXME: no_undef_params needs to be tested
> use CGI qw('-no_undef_params' -utf8);
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> my $branch_group_limit = $cgi->param("branch_group_limit");
> if ( $branch_group_limit ) {
>diff --git a/opac/opac-sendshelf.pl b/opac/opac-sendshelf.pl
>index a8ca0899d82..c97aa450dc9 100755
>--- a/opac/opac-sendshelf.pl
>+++ b/opac/opac-sendshelf.pl
>@@ -33,7 +33,7 @@ use Koha::Email;
> use Koha::Patrons;
> use Koha::Virtualshelves;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> 
> # if virtualshelves is disabled, leave immediately
> if ( ! C4::Context->preference('virtualshelves') ) {
>diff --git a/opac/opac-serial-issues.pl b/opac/opac-serial-issues.pl
>index cf095c1c417..74e5abbc555 100755
>--- a/opac/opac-serial-issues.pl
>+++ b/opac/opac-serial-issues.pl
>@@ -28,7 +28,7 @@ use C4::Letters;
> use C4::Output;
> use C4::Context;
> 
>-my $query      = new CGI;
>+my $query      = CGI->new;
> my $op         = $query->param('op');
> my $dbh        = C4::Context->dbh;
> my $selectview = $query->param('selectview');
>diff --git a/opac/opac-shareshelf.pl b/opac/opac-shareshelf.pl
>index 34a17788ed6..7eecf6c45f3 100755
>--- a/opac/opac-shareshelf.pl
>+++ b/opac/opac-shareshelf.pl
>@@ -40,7 +40,7 @@ use Koha::Virtualshelfshares;
> 
> # if virtualshelves is disabled, leave immediately
> if ( ! C4::Context->preference('virtualshelves') ) {
>-    my $query = new CGI;
>+    my $query = CGI->new;
>     print $query->redirect("/cgi-bin/koha/errors/404.pl");
>     exit;
> }
>@@ -60,7 +60,7 @@ output_html_with_http_headers $pvar->{query}, $pvar->{cookie}, $pvar->{template}
> 
> sub _init {
>     my ($param) = @_;
>-    my $query = new CGI;
>+    my $query = CGI->new;
>     $param->{query}       = $query;
>     $param->{shelfnumber} = $query->param('shelfnumber') || 0;
>     $param->{op}          = $query->param('op') || '';
>diff --git a/opac/opac-shelves.pl b/opac/opac-shelves.pl
>index 180d0d27018..0bcd2737980 100755
>--- a/opac/opac-shelves.pl
>+++ b/opac/opac-shelves.pl
>@@ -41,7 +41,7 @@ use Koha::RecordProcessor;
> 
> use constant ANYONE => 2;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> 
> my $template_name = $query->param('rss') ? "opac-shelves-rss.tt" : "opac-shelves.tt";
> 
>diff --git a/opac/opac-showmarc.pl b/opac/opac-showmarc.pl
>index a8b5849dd39..a30e3e5fdd9 100755
>--- a/opac/opac-showmarc.pl
>+++ b/opac/opac-showmarc.pl
>@@ -33,7 +33,7 @@ use C4::XSLT ();
> use C4::Templates;
> use Koha::RecordProcessor;
> 
>-my $input       = new CGI;
>+my $input       = CGI->new;
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user({
>     template_name   => "opac-showmarc.tt",
>     query           => $input,
>diff --git a/opac/opac-showreviews.pl b/opac/opac-showreviews.pl
>index 3f0fef13811..cfb359c6b78 100755
>--- a/opac/opac-showreviews.pl
>+++ b/opac/opac-showreviews.pl
>@@ -32,7 +32,7 @@ use Koha::Reviews;
> use POSIX qw(ceil floor strftime);
> 
> my $template_name;
>-my $query = new CGI;
>+my $query = CGI->new;
> my $format = $query->param("format") || '';
> my $count = C4::Context->preference('OPACnumSearchResults') || 20;
> my $results_per_page = $query->param('count') || $count;
>diff --git a/opac/opac-suggestions.pl b/opac/opac-suggestions.pl
>index 22f6442c9bf..90e5a0c5639 100755
>--- a/opac/opac-suggestions.pl
>+++ b/opac/opac-suggestions.pl
>@@ -35,7 +35,7 @@ use Koha::Patrons;
> 
> use Koha::DateUtils;
> 
>-my $input           = new CGI;
>+my $input           = CGI->new;
> my $op              = $input->param('op') || 'else';
> my $biblionumber    = $input->param('biblionumber');
> my $suggestion      = $input->Vars;
>diff --git a/opac/opac-tags_subject.pl b/opac/opac-tags_subject.pl
>index b083ef20d7d..3c55c467d51 100755
>--- a/opac/opac-tags_subject.pl
>+++ b/opac/opac-tags_subject.pl
>@@ -32,7 +32,7 @@ use C4::Output;
> use CGI qw ( -utf8 );
> use C4::Biblio;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> 
> my $dbh = C4::Context->dbh;
> 
>diff --git a/opac/opac-topissues.pl b/opac/opac-topissues.pl
>index fbf0081a383..1f6edaef76d 100755
>--- a/opac/opac-topissues.pl
>+++ b/opac/opac-topissues.pl
>@@ -39,7 +39,7 @@ plugin that shows a stats on borrowers
> 
> =cut
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> # if OpacTopissue is disabled, leave immediately
> if ( ! C4::Context->preference('OpacTopissue') ) {
>diff --git a/opac/opac-user.pl b/opac/opac-user.pl
>index a380d88f015..fd15abd95c1 100755
>--- a/opac/opac-user.pl
>+++ b/opac/opac-user.pl
>@@ -55,7 +55,7 @@ use Date::Calc qw(
>   Date_to_Days
> );
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> 
> # CAS single logout handling
> # Will print header and exit
>diff --git a/opac/sci/sci-main.pl b/opac/sci/sci-main.pl
>index e62f6a5c2fc..88a3cf8ce1d 100755
>--- a/opac/sci/sci-main.pl
>+++ b/opac/sci/sci-main.pl
>@@ -27,7 +27,7 @@ use Koha::Items;
> use List::MoreUtils qw( uniq );
> use Try::Tiny;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> # 404 if feature is disabled
> unless ( C4::Context->preference('SelfCheckInModule') ) {
>diff --git a/opac/sco/help.pl b/opac/sco/help.pl
>index 845144558c8..22fb99a2d09 100755
>--- a/opac/sco/help.pl
>+++ b/opac/sco/help.pl
>@@ -27,7 +27,7 @@ use CGI qw ( -utf8 );
> use C4::Auth   qw(get_template_and_user in_iprange);
> use C4::Output qw(output_html_with_http_headers);
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> unless ( in_iprange(C4::Context->preference('SelfCheckAllowByIPRanges')) ) {
>     print $query->redirect("/cgi-bin/koha/opac-main.pl");
>     exit;
>diff --git a/opac/sco/printslip.pl b/opac/sco/printslip.pl
>index 98ded2a5c62..3b7074194e6 100755
>--- a/opac/sco/printslip.pl
>+++ b/opac/sco/printslip.pl
>@@ -34,7 +34,7 @@ use C4::Output;
> use C4::Members;
> use C4::Koha;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> unless ( in_iprange(C4::Context->preference('SelfCheckAllowByIPRanges')) ) {
>     print $input->header(status => '403 Forbidden - functionality not available from your location');
>     exit;
>diff --git a/opac/sco/sco-main.pl b/opac/sco/sco-main.pl
>index c7649f5f6d6..ee5a3a13d45 100755
>--- a/opac/sco/sco-main.pl
>+++ b/opac/sco/sco-main.pl
>@@ -51,7 +51,7 @@ use Koha::Patron::Images;
> use Koha::Patron::Messages;
> use Koha::Token;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> 
> unless (C4::Context->preference('WebBasedSelfCheck')) {
>     # redirect to OPAC home if self-check is not enabled
>diff --git a/opac/svc/checkout_notes b/opac/svc/checkout_notes
>index 7814953f368..8913ab70d77 100755
>--- a/opac/svc/checkout_notes
>+++ b/opac/svc/checkout_notes
>@@ -42,7 +42,7 @@ svc/checkout_notes - Web service for setting patron notes on items
> 
> # AJAX requests
> my $is_ajax = is_ajax();
>-my $query = new CGI;
>+my $query = CGI->new;
> my ( $auth_status, $sessionID ) = check_cookie_auth( $query->cookie('CGISESSID'), {} );
> if ( $auth_status ne "ok" ) {
>     exit 0;
>diff --git a/opac/svc/club/cancel_enrollment b/opac/svc/club/cancel_enrollment
>index d2199338002..c9af28349da 100755
>--- a/opac/svc/club/cancel_enrollment
>+++ b/opac/svc/club/cancel_enrollment
>@@ -26,7 +26,7 @@ use JSON qw(to_json);
> use C4::Auth qw(check_cookie_auth);
> use Koha::Club::Enrollments;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> my ( $auth_status, $sessionID ) =
>   check_cookie_auth( $cgi->cookie('CGISESSID') );
>diff --git a/opac/svc/club/enroll b/opac/svc/club/enroll
>index 98da33f22e3..105cbb60643 100755
>--- a/opac/svc/club/enroll
>+++ b/opac/svc/club/enroll
>@@ -28,7 +28,7 @@ use Koha::Club::Enrollment::Field;
> use Koha::Club::Enrollment;
> use Koha::Clubs;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> my ( $auth_status, $sessionID ) =
>   check_cookie_auth( $cgi->cookie('CGISESSID') );
>diff --git a/opac/svc/overdrive b/opac/svc/overdrive
>index 57333f0066c..89d0865dd8a 100755
>--- a/opac/svc/overdrive
>+++ b/opac/svc/overdrive
>@@ -29,7 +29,7 @@ use Koha::Library::OverDriveInfos;
> use Koha::ExternalContent::OverDrive;
> 
> my $logger = Koha::Logger->get({ interface => 'opac' });
>-our $cgi = new CGI;
>+our $cgi = CGI->new;
> my $page_url = $cgi->referer();
> 
> my ( $user, $cookie, $sessionID, $flags ) = checkauth( $cgi, 1, {}, 'opac' );
>diff --git a/opac/svc/overdrive_proxy b/opac/svc/overdrive_proxy
>index d8fd7c666ed..1404e9873cc 100755
>--- a/opac/svc/overdrive_proxy
>+++ b/opac/svc/overdrive_proxy
>@@ -43,7 +43,7 @@ use C4::Output;
> 
> use Koha;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> 
> my $token;
> 
>diff --git a/opac/svc/recordedbooks b/opac/svc/recordedbooks
>index d55a15c7591..4a5c9376cc1 100755
>--- a/opac/svc/recordedbooks
>+++ b/opac/svc/recordedbooks
>@@ -24,7 +24,7 @@ use C4::Output;
> use Koha::Logger;
> use Koha::ExternalContent::RecordedBooks;
> 
>-our $cgi = new CGI;
>+our $cgi = CGI->new;
> my $logger = Koha::Logger->get({ interface => 'opac' });
> my $page_url = $cgi->referer();
> 
>diff --git a/opac/svc/shelfbrowser.pl b/opac/svc/shelfbrowser.pl
>index 2b24a0e3aa8..82e583ca81e 100755
>--- a/opac/svc/shelfbrowser.pl
>+++ b/opac/svc/shelfbrowser.pl
>@@ -8,7 +8,7 @@ use C4::Context;
> use C4::Output;
> use C4::ShelfBrowser;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
>     {
>diff --git a/opac/svc/suggestion b/opac/svc/suggestion
>index f4fb1d87222..04b0655b34b 100755
>--- a/opac/svc/suggestion
>+++ b/opac/svc/suggestion
>@@ -60,7 +60,7 @@ use CGI qw ( -utf8 );
> use JSON;
> use Koha::SuggestionEngine;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> 
> my $dbh = C4::Context->dbh;
> 
>diff --git a/opac/tracklinks.pl b/opac/tracklinks.pl
>index 2c0d2136174..ab07f033bef 100755
>--- a/opac/tracklinks.pl
>+++ b/opac/tracklinks.pl
>@@ -28,7 +28,7 @@ use Koha::Linktracker;
> use CGI qw ( -utf8 );
> use List::MoreUtils qw(any);
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> my $uri = $cgi->param('uri') || '';
> my $biblionumber = $cgi->param('biblionumber') || 0;
> my $itemnumber   = $cgi->param('itemnumber')   || 0;
>diff --git a/patron_lists/add-modify.pl b/patron_lists/add-modify.pl
>index b0b39ccfbdf..c10c2084478 100755
>--- a/patron_lists/add-modify.pl
>+++ b/patron_lists/add-modify.pl
>@@ -25,7 +25,7 @@ use C4::Auth;
> use C4::Output;
> use Koha::List::Patron;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {
>diff --git a/patron_lists/delete.pl b/patron_lists/delete.pl
>index 7751fe80c29..87c199b4268 100755
>--- a/patron_lists/delete.pl
>+++ b/patron_lists/delete.pl
>@@ -25,7 +25,7 @@ use C4::Auth;
> use C4::Output;
> use Koha::List::Patron;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {
>diff --git a/patron_lists/list.pl b/patron_lists/list.pl
>index 90b580106e1..75f30e29890 100755
>--- a/patron_lists/list.pl
>+++ b/patron_lists/list.pl
>@@ -26,7 +26,7 @@ use C4::Output;
> use Koha::List::Patron;
> use List::MoreUtils qw/uniq/;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> my ( $template, $logged_in_user, $cookie ) = get_template_and_user(
>     {
>diff --git a/patron_lists/lists.pl b/patron_lists/lists.pl
>index cdb055a3517..df84727426b 100755
>--- a/patron_lists/lists.pl
>+++ b/patron_lists/lists.pl
>@@ -25,7 +25,7 @@ use C4::Auth;
> use C4::Output;
> use Koha::List::Patron;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {
>diff --git a/patron_lists/patrons.pl b/patron_lists/patrons.pl
>index 2c10923ca81..98ac9593c28 100755
>--- a/patron_lists/patrons.pl
>+++ b/patron_lists/patrons.pl
>@@ -25,7 +25,7 @@ use C4::Auth;
> use C4::Output;
> use Koha::List::Patron;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {
>diff --git a/patroncards/add_user_search.pl b/patroncards/add_user_search.pl
>index 9551ab03cff..5c250e81ce0 100755
>--- a/patroncards/add_user_search.pl
>+++ b/patroncards/add_user_search.pl
>@@ -26,7 +26,7 @@ use C4::Members;
> 
> use Koha::Patron::Categories;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> my $dbh = C4::Context->dbh;
> 
>diff --git a/patroncards/create-pdf.pl b/patroncards/create-pdf.pl
>index fc584a3daf8..1ffaa0002a9 100755
>--- a/patroncards/create-pdf.pl
>+++ b/patroncards/create-pdf.pl
>@@ -34,7 +34,7 @@ use Koha::List::Patron;
> use Koha::Patrons;
> use Koha::Patron::Images;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user({
>                                                                      template_name   => "labels/label-home.tt",
>diff --git a/patroncards/edit-batch.pl b/patroncards/edit-batch.pl
>index 990642e9bf5..992c58a7533 100755
>--- a/patroncards/edit-batch.pl
>+++ b/patroncards/edit-batch.pl
>@@ -31,7 +31,7 @@ use C4::Creators;
> use C4::Patroncards;
> use Koha::Patrons;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {
>         template_name   => "patroncards/edit-batch.tt",
>diff --git a/patroncards/edit-layout.pl b/patroncards/edit-layout.pl
>index 6ff61010df3..8e415afa6bf 100755
>--- a/patroncards/edit-layout.pl
>+++ b/patroncards/edit-layout.pl
>@@ -30,7 +30,7 @@ use C4::Output qw(output_html_with_http_headers);
> use C4::Creators;
> use C4::Patroncards;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {
>         template_name   => "patroncards/edit-layout.tt",
>diff --git a/patroncards/edit-profile.pl b/patroncards/edit-profile.pl
>index 6f3782b1b66..e5ceb08b076 100755
>--- a/patroncards/edit-profile.pl
>+++ b/patroncards/edit-profile.pl
>@@ -27,7 +27,7 @@ use C4::Output qw(output_html_with_http_headers);
> use C4::Creators::Lib qw(get_all_templates get_unit_values);
> use C4::Patroncards::Profile;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {
>         template_name   => "patroncards/edit-profile.tt",
>diff --git a/patroncards/edit-template.pl b/patroncards/edit-template.pl
>index 8ac1e487b03..cce2a8f5ece 100755
>--- a/patroncards/edit-template.pl
>+++ b/patroncards/edit-template.pl
>@@ -28,7 +28,7 @@ use C4::Output qw(output_html_with_http_headers);
> use C4::Creators;
> use C4::Patroncards;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {
>         template_name   => "patroncards/edit-template.tt",
>diff --git a/patroncards/home.pl b/patroncards/home.pl
>index bd0c16c8267..7bb2bc41a14 100755
>--- a/patroncards/home.pl
>+++ b/patroncards/home.pl
>@@ -25,7 +25,7 @@ use CGI qw ( -utf8 );
> use C4::Auth qw(get_template_and_user);
> use C4::Output qw(output_html_with_http_headers);
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {
>         template_name   => "patroncards/home.tt",
>diff --git a/patroncards/manage.pl b/patroncards/manage.pl
>index 1611e7950bf..4ea36eb9d01 100755
>--- a/patroncards/manage.pl
>+++ b/patroncards/manage.pl
>@@ -31,7 +31,7 @@ use C4::Patroncards;
> use C4::Labels;
> use Koha::List::Patron;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {
>         template_name   => "patroncards/manage.tt",
>diff --git a/patroncards/print.pl b/patroncards/print.pl
>index 758afff62d5..60cff0ea877 100755
>--- a/patroncards/print.pl
>+++ b/patroncards/print.pl
>@@ -27,7 +27,7 @@ use C4::Output qw(output_html_with_http_headers);
> use C4::Creators;
> use C4::Patroncards;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {
>         template_name   => "patroncards/print.tt",
>diff --git a/plugins/plugins-enable.pl b/plugins/plugins-enable.pl
>index 9e7714c3da1..181550781aa 100755
>--- a/plugins/plugins-enable.pl
>+++ b/plugins/plugins-enable.pl
>@@ -25,7 +25,7 @@ use Koha::Plugins::Handler;
> 
> die("Koha plugins are disabled!") unless C4::Context->config("enable_plugins");
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> my ( $auth_status, $sessionID ) =
>   check_cookie_auth( $input->cookie('CGISESSID'), { plugins => 'manage' } );
>diff --git a/plugins/plugins-home.pl b/plugins/plugins-home.pl
>index 5757811fce1..1efcc02ded7 100755
>--- a/plugins/plugins-home.pl
>+++ b/plugins/plugins-home.pl
>@@ -32,7 +32,7 @@ use C4::Context;
> 
> my $plugins_enabled = C4::Context->config("enable_plugins");
> 
>-my $input  = new CGI;
>+my $input  = CGI->new;
> my $method = $input->param('method');
> my $plugin_search = $input->param('plugin-search');
> 
>diff --git a/plugins/plugins-uninstall.pl b/plugins/plugins-uninstall.pl
>index 0c0d56db25f..8f933a29713 100755
>--- a/plugins/plugins-uninstall.pl
>+++ b/plugins/plugins-uninstall.pl
>@@ -31,7 +31,7 @@ use Koha::Plugins::Handler;
> 
> die("Koha plugins are disabled!") unless C4::Context->config("enable_plugins");
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {   template_name   => "plugins/plugins-upload.tt",
>diff --git a/plugins/plugins-upload.pl b/plugins/plugins-upload.pl
>index da538fc6dde..c81e6f175bd 100755
>--- a/plugins/plugins-upload.pl
>+++ b/plugins/plugins-upload.pl
>@@ -33,7 +33,7 @@ use Koha::Plugins;
> 
> my $plugins_enabled = C4::Context->config("enable_plugins");
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {   template_name => ($plugins_enabled) ? "plugins/plugins-upload.tt" : "plugins/plugins-disabled.tt",
>diff --git a/plugins/run.pl b/plugins/run.pl
>index 3aa3ab1cd1c..d050f47d692 100755
>--- a/plugins/run.pl
>+++ b/plugins/run.pl
>@@ -29,7 +29,7 @@ use C4::Context;
> 
> my $plugins_enabled = C4::Context->config("enable_plugins");
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> my $class  = $cgi->param('class');
> my $method = $cgi->param('method');
>diff --git a/reports/acquisitions_stats.pl b/reports/acquisitions_stats.pl
>index d5de0a22f18..b560e459a4c 100755
>--- a/reports/acquisitions_stats.pl
>+++ b/reports/acquisitions_stats.pl
>@@ -41,7 +41,7 @@ Plugin that shows a stats on borrowers
> 
> =cut
> 
>-my $input          = new CGI;
>+my $input          = CGI->new;
> my $do_it          = $input->param('do_it');
> my $fullreportname = "reports/acquisitions_stats.tt";
> my $line           = $input->param("Line");
>diff --git a/reports/bor_issues_top.pl b/reports/bor_issues_top.pl
>index a41985b7523..d88d701a8fa 100755
>--- a/reports/bor_issues_top.pl
>+++ b/reports/bor_issues_top.pl
>@@ -43,7 +43,7 @@ plugin that shows a stats on borrowers
> 
> $debug and open my $debugfh, '>', '/tmp/bor_issues_top.debug.log';
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> my $fullreportname = "reports/bor_issues_top.tt";
> my $do_it   = $input->param('do_it');
> my $limit   = $input->param("Limit");
>diff --git a/reports/borrowers_out.pl b/reports/borrowers_out.pl
>index 357719c4075..394bf38b151 100755
>--- a/reports/borrowers_out.pl
>+++ b/reports/borrowers_out.pl
>@@ -41,7 +41,7 @@ Plugin that shows a stats on borrowers
> 
> =cut
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> my $do_it=$input->param('do_it');
> my $fullreportname = "reports/borrowers_out.tt";
> my $limit = $input->param("Limit");
>diff --git a/reports/borrowers_stats.pl b/reports/borrowers_stats.pl
>index 3eaba089644..c53491a070f 100755
>--- a/reports/borrowers_stats.pl
>+++ b/reports/borrowers_stats.pl
>@@ -48,7 +48,7 @@ plugin that shows a stats on borrowers
> 
> =cut
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> my $do_it=$input->param('do_it');
> my $fullreportname = "reports/borrowers_stats.tt";
> my $line = $input->param("Line");
>diff --git a/reports/cash_register_stats.pl b/reports/cash_register_stats.pl
>index 0e92d5c4893..b9a3fe818d5 100755
>--- a/reports/cash_register_stats.pl
>+++ b/reports/cash_register_stats.pl
>@@ -31,7 +31,7 @@ use List::Util qw/any/;
> use Koha::Account::CreditTypes;
> use Koha::Account::DebitTypes;
> 
>-my $input            = new CGI;
>+my $input            = CGI->new;
> my $dbh              = C4::Context->dbh;
> 
> my ($template, $borrowernumber, $cookie) = get_template_and_user({
>diff --git a/reports/cat_issues_top.pl b/reports/cat_issues_top.pl
>index 596ea004496..28025cce67a 100755
>--- a/reports/cat_issues_top.pl
>+++ b/reports/cat_issues_top.pl
>@@ -38,7 +38,7 @@ plugin that shows a stats on borrowers
> 
> =cut
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> my $do_it=$input->param('do_it');
> my $fullreportname = "reports/cat_issues_top.tt";
> my $limit = $input->param("Limit");
>diff --git a/reports/catalogue_out.pl b/reports/catalogue_out.pl
>index d85cebcc35f..bea7fe9bf2f 100755
>--- a/reports/catalogue_out.pl
>+++ b/reports/catalogue_out.pl
>@@ -33,7 +33,7 @@ Report that shows unborrowed items.
> 
> =cut
> 
>-my $input   = new CGI;
>+my $input   = CGI->new;
> my $do_it   = $input->param('do_it');
> my $limit   = $input->param("Limit") || 10;
> my $column  = $input->param("Criteria");
>diff --git a/reports/catalogue_stats.pl b/reports/catalogue_stats.pl
>index 15ccefd75f6..85293b7026a 100755
>--- a/reports/catalogue_stats.pl
>+++ b/reports/catalogue_stats.pl
>@@ -41,7 +41,7 @@ plugin that shows a stats on borrowers
> =cut
> 
> our $debug = 0;
>-my $input = new CGI;
>+my $input = CGI->new;
> my $fullreportname = "reports/catalogue_stats.tt";
> my $do_it       = $input->param('do_it');
> my $line        = $input->param("Line");
>diff --git a/reports/dictionary.pl b/reports/dictionary.pl
>index 2c899044949..9cc7ed76972 100755
>--- a/reports/dictionary.pl
>+++ b/reports/dictionary.pl
>@@ -32,7 +32,7 @@ Script to control the guided report creation
> 
> =cut
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> my $referer = $input->referer();
> 
> my $phase = $input->param('phase') || 'View Dictionary';
>diff --git a/reports/guided_reports.pl b/reports/guided_reports.pl
>index 6bf32e25b08..aab868ed199 100755
>--- a/reports/guided_reports.pl
>+++ b/reports/guided_reports.pl
>@@ -50,7 +50,7 @@ Script to control the guided report creation
> 
> =cut
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> my $usecache = Koha::Caches->get_instance->memcached_cache;
> 
> my $phase = $input->param('phase') // '';
>diff --git a/reports/issues_avg_stats.pl b/reports/issues_avg_stats.pl
>index d700664074f..ca074b5dfdb 100755
>--- a/reports/issues_avg_stats.pl
>+++ b/reports/issues_avg_stats.pl
>@@ -39,7 +39,7 @@ plugin that shows a stats on borrowers
> 
> =cut
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> my $do_it=$input->param('do_it');
> my $fullreportname = "reports/issues_avg_stats.tt";
> my $line = $input->param("Line");
>diff --git a/reports/itemslost.pl b/reports/itemslost.pl
>index de1e798609b..3fcb75d6327 100755
>--- a/reports/itemslost.pl
>+++ b/reports/itemslost.pl
>@@ -38,7 +38,7 @@ use Koha::AuthorisedValues;
> use Koha::CsvProfiles;
> use Koha::DateUtils;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {
>         template_name   => "reports/itemslost.tt",
>diff --git a/reports/manager.pl b/reports/manager.pl
>index 82a9cb6c3c5..45f2d60ac57 100755
>--- a/reports/manager.pl
>+++ b/reports/manager.pl
>@@ -25,7 +25,7 @@ use C4::Output;
> use C4::Circulation;
> 
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> my $report_name=$input->param("report_name");
> my $do_it=$input->param('do_it');
> my $fullreportname = "reports/".$report_name.".tt";
>diff --git a/reports/orders_by_fund.pl b/reports/orders_by_fund.pl
>index 7f50e9af38d..d5fa1070f52 100755
>--- a/reports/orders_by_fund.pl
>+++ b/reports/orders_by_fund.pl
>@@ -37,7 +37,7 @@ use C4::Acquisition; #GetBasket()
> use Koha::Biblios;
> use Koha::DateUtils;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {
>         template_name   => "reports/orders_by_budget.tt",
>diff --git a/reports/reports-home.pl b/reports/reports-home.pl
>index b8ba0aa853c..78978c19fdf 100755
>--- a/reports/reports-home.pl
>+++ b/reports/reports-home.pl
>@@ -25,7 +25,7 @@ use C4::Output;
> use C4::Context;
> 
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> my ($template, $loggedinuser, $cookie)
> = get_template_and_user({template_name => "reports/reports-home.tt",
> 				query => $query,
>diff --git a/reports/reserves_stats.pl b/reports/reserves_stats.pl
>index 77d6eea72b3..79d8db98eb1 100755
>--- a/reports/reserves_stats.pl
>+++ b/reports/reserves_stats.pl
>@@ -47,7 +47,7 @@ Plugin that shows reserve stats
> =cut
> 
> # my $debug = 1;	# override for now.
>-my $input = new CGI;
>+my $input = CGI->new;
> my $fullreportname = "reports/reserves_stats.tt";
> my $do_it    = $input->param('do_it');
> my $line     = $input->param("Line");
>diff --git a/reports/serials_stats.pl b/reports/serials_stats.pl
>index 10c0a6e81c7..9a0a071ff7a 100755
>--- a/reports/serials_stats.pl
>+++ b/reports/serials_stats.pl
>@@ -34,7 +34,7 @@ plugin that shows a stats on serials
> 
> =cut
> 
>-my $input      = new CGI;
>+my $input      = CGI->new;
> my $templatename   = "reports/serials_stats.tt";
> my $do_it      = $input->param("do_it");
> my $bookseller = $input->param("bookseller");
>diff --git a/reserve/modrequest.pl b/reserve/modrequest.pl
>index ce07bec77d7..b2d138378a6 100755
>--- a/reserve/modrequest.pl
>+++ b/reserve/modrequest.pl
>@@ -30,7 +30,7 @@ use C4::Reserves;
> use C4::Auth;
> use Koha::DateUtils qw( dt_from_string );
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {   
>         template_name   => "about.tt",
>diff --git a/reserve/modrequest_suspendall.pl b/reserve/modrequest_suspendall.pl
>index ea303f3083a..dbe6b227db9 100755
>--- a/reserve/modrequest_suspendall.pl
>+++ b/reserve/modrequest_suspendall.pl
>@@ -28,7 +28,7 @@ use C4::Output;
> use C4::Reserves;
> use C4::Auth;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {
>         template_name   => "about.tt",
>diff --git a/reserve/request.pl b/reserve/request.pl
>index 688cb82d97b..ec979f516e5 100755
>--- a/reserve/request.pl
>+++ b/reserve/request.pl
>@@ -56,7 +56,7 @@ use Koha::Patrons;
> use Koha::Clubs;
> 
> my $dbh = C4::Context->dbh;
>-my $input = new CGI;
>+my $input = CGI->new;
> my ( $template, $borrowernumber, $cookie, $flags ) = get_template_and_user(
>     {
>         template_name   => "reserve/request.tt",
>diff --git a/reviews/reviewswaiting.pl b/reviews/reviewswaiting.pl
>index e115941366b..f5050d2ba5b 100755
>--- a/reviews/reviewswaiting.pl
>+++ b/reviews/reviewswaiting.pl
>@@ -26,7 +26,7 @@ use Koha::Biblios;
> use Koha::Patrons;
> use Koha::Reviews;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {
>         template_name   => "reviews/reviewswaiting.tt",
>diff --git a/rotating_collections/addItems.pl b/rotating_collections/addItems.pl
>index b52113a5ddd..5cd49df4368 100755
>--- a/rotating_collections/addItems.pl
>+++ b/rotating_collections/addItems.pl
>@@ -28,7 +28,7 @@ use Koha::Items;
> 
> use CGI qw ( -utf8 );
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> 
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {
>diff --git a/rotating_collections/editCollections.pl b/rotating_collections/editCollections.pl
>index 4df8942508e..33014e9831b 100755
>--- a/rotating_collections/editCollections.pl
>+++ b/rotating_collections/editCollections.pl
>@@ -26,7 +26,7 @@ use C4::Context;
> 
> use C4::RotatingCollections;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> 
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {
>diff --git a/rotating_collections/rotatingCollections.pl b/rotating_collections/rotatingCollections.pl
>index 941f778681a..7eb3975c034 100755
>--- a/rotating_collections/rotatingCollections.pl
>+++ b/rotating_collections/rotatingCollections.pl
>@@ -25,7 +25,7 @@ use C4::Auth;
> use C4::Context;
> use C4::RotatingCollections;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> 
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {
>diff --git a/rotating_collections/transferCollection.pl b/rotating_collections/transferCollection.pl
>index bdee62a83e1..5cfc62699ae 100755
>--- a/rotating_collections/transferCollection.pl
>+++ b/rotating_collections/transferCollection.pl
>@@ -25,7 +25,7 @@ use C4::RotatingCollections;
> 
> use CGI qw ( -utf8 );
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> 
> my $colId    = $query->param('colId');
> my $toBranch = $query->param('toBranch');
>diff --git a/serials/acqui-search-result.pl b/serials/acqui-search-result.pl
>index 1897f5fec86..ece1232d192 100755
>--- a/serials/acqui-search-result.pl
>+++ b/serials/acqui-search-result.pl
>@@ -50,7 +50,7 @@ use Koha::DateUtils;
> 
> use Koha::Acquisition::Booksellers;
> 
>-my $query=new CGI;
>+my $query=CGI->new;
> my ($template, $loggedinuser, $cookie)
>     = get_template_and_user({template_name => "serials/acqui-search-result.tt",
>                  query => $query,
>diff --git a/serials/acqui-search.pl b/serials/acqui-search.pl
>index 95b02c23ac5..58d659d4f87 100755
>--- a/serials/acqui-search.pl
>+++ b/serials/acqui-search.pl
>@@ -23,7 +23,7 @@ use CGI qw ( -utf8 );
> use C4::Auth;
> use C4::Output;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> 
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {
>diff --git a/serials/add_user_search.pl b/serials/add_user_search.pl
>index 6b77c9e0c13..dedce1d2799 100755
>--- a/serials/add_user_search.pl
>+++ b/serials/add_user_search.pl
>@@ -26,7 +26,7 @@ use C4::Members;
> 
> use Koha::Patron::Categories;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> my $dbh = C4::Context->dbh;
> 
>diff --git a/serials/checkexpiration.pl b/serials/checkexpiration.pl
>index 4f0c1e80019..10d5dacc074 100755
>--- a/serials/checkexpiration.pl
>+++ b/serials/checkexpiration.pl
>@@ -52,7 +52,7 @@ use Koha::DateUtils;
> 
> use DateTime;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> 
> my ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user (
>     {
>diff --git a/serials/create-numberpattern.pl b/serials/create-numberpattern.pl
>index 52b303d8a87..506a539d39c 100755
>--- a/serials/create-numberpattern.pl
>+++ b/serials/create-numberpattern.pl
>@@ -24,7 +24,7 @@ use C4::Serials::Numberpattern;
> use C4::Auth qw/check_cookie_auth/;
> use URI::Escape;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> my ($auth_status, $sessionID) = check_cookie_auth($input->cookie('CGISESSID'), { serials => '*' });
> if ($auth_status ne "ok") {
>diff --git a/serials/lateissues-export.pl b/serials/lateissues-export.pl
>index e36e7347bb9..7af3395d1b2 100755
>--- a/serials/lateissues-export.pl
>+++ b/serials/lateissues-export.pl
>@@ -27,7 +27,7 @@ use Koha::CsvProfiles;
> 
> use Text::CSV_XS;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> my $supplierid = $query->param('supplierid');
> my @serialids = $query->multi_param('serialid');
> my $op = $query->param('op') || q{};
>diff --git a/serials/routing-preview.pl b/serials/routing-preview.pl
>index 12f2ebc81b4..40a8344633d 100755
>--- a/serials/routing-preview.pl
>+++ b/serials/routing-preview.pl
>@@ -37,7 +37,7 @@ use Koha::Biblios;
> use Koha::Libraries;
> use Koha::Patrons;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> my $subscriptionid = $query->param('subscriptionid');
> my $issue = $query->param('issue');
> my $routingid;
>diff --git a/serials/routing.pl b/serials/routing.pl
>index 49aa9c3e393..6a237f6f6ea 100755
>--- a/serials/routing.pl
>+++ b/serials/routing.pl
>@@ -40,7 +40,7 @@ use Koha::Patrons;
> 
> use URI::Escape;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> my $subscriptionid = $query->param('subscriptionid');
> my $serialseq = $query->param('serialseq');
> my $routingid = $query->param('routingid');
>diff --git a/serials/serials-collection.pl b/serials/serials-collection.pl
>index c6b0f449016..03795d6267f 100755
>--- a/serials/serials-collection.pl
>+++ b/serials/serials-collection.pl
>@@ -34,7 +34,7 @@ use Koha::DateUtils qw( dt_from_string );
> use List::MoreUtils qw/uniq/;
> 
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> my $op = $query->param('op') || q{};
> my $nbissues=$query->param('nbissues');
> my $date_received_today = $query->param('date_received_today') || 0;
>diff --git a/serials/serials-home.pl b/serials/serials-home.pl
>index 3fc15d03fb1..8f7cb154177 100755
>--- a/serials/serials-home.pl
>+++ b/serials/serials-home.pl
>@@ -35,7 +35,7 @@ use C4::Context;
> use C4::Output;
> use C4::Serials;
> 
>-my $query   = new CGI;
>+my $query   = CGI->new;
> my $routing = $query->param('routing') || C4::Context->preference("RoutingSerials");
> 
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>diff --git a/serials/serials-search.pl b/serials/serials-search.pl
>index 456a6cd4313..a0723286ca8 100755
>--- a/serials/serials-search.pl
>+++ b/serials/serials-search.pl
>@@ -40,7 +40,7 @@ use Koha::AdditionalFields;
> use Koha::DateUtils;
> use Koha::SharedContent;
> 
>-my $query         = new CGI;
>+my $query         = CGI->new;
> my $title         = $query->param('title_filter') || '';
> my $ISSN          = $query->param('ISSN_filter') || '';
> my $EAN           = $query->param('EAN_filter') || '';
>diff --git a/serials/showpredictionpattern.pl b/serials/showpredictionpattern.pl
>index 78fbea98a5a..d6bcfc79187 100755
>--- a/serials/showpredictionpattern.pl
>+++ b/serials/showpredictionpattern.pl
>@@ -38,7 +38,7 @@ use C4::Serials;
> use C4::Serials::Frequency;
> use Koha::DateUtils;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( {
>     template_name   => 'serials/showpredictionpattern.tt',
>     query           => $input,
>diff --git a/serials/subscription-batchedit.pl b/serials/subscription-batchedit.pl
>index fcc3aa43b0e..b06f68d6c35 100755
>--- a/serials/subscription-batchedit.pl
>+++ b/serials/subscription-batchedit.pl
>@@ -29,7 +29,7 @@ use Koha::Acquisition::Booksellers;
> use Koha::AdditionalFields;
> use Koha::DateUtils;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> my ($template, $loggedinuser, $cookie) = get_template_and_user({
>     template_name => 'serials/subscription-batchedit.tt',
>diff --git a/serials/subscription-bib-search.pl b/serials/subscription-bib-search.pl
>index 20042cb7a60..049da968ccf 100755
>--- a/serials/subscription-bib-search.pl
>+++ b/serials/subscription-bib-search.pl
>@@ -61,7 +61,7 @@ use Koha::ItemTypes;
> use Koha::SearchEngine;
> use Koha::SearchEngine::Search;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> my $op = $input->param('op') || q{};
> my $dbh = C4::Context->dbh;
> 
>diff --git a/serials/subscription-detail.pl b/serials/subscription-detail.pl
>index 40e4cd9709c..ac4abcef180 100755
>--- a/serials/subscription-detail.pl
>+++ b/serials/subscription-detail.pl
>@@ -37,7 +37,7 @@ use Carp;
> 
> use Koha::SharedContent;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> my $op = $query->param('op') || q{};
> my $issueconfirmed = $query->param('issueconfirmed');
> my $dbh = C4::Context->dbh;
>diff --git a/serials/subscription-frequencies.pl b/serials/subscription-frequencies.pl
>index 51f84a207fa..ad14c0cd48c 100755
>--- a/serials/subscription-frequencies.pl
>+++ b/serials/subscription-frequencies.pl
>@@ -36,7 +36,7 @@ use C4::Output;
> use C4::Serials;
> use C4::Serials::Frequency;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( {
>     template_name   => 'serials/subscription-frequencies.tt',
>     query           => $input,
>diff --git a/serials/subscription-frequency.pl b/serials/subscription-frequency.pl
>index f7fe7c0bdb2..2532f8f186b 100755
>--- a/serials/subscription-frequency.pl
>+++ b/serials/subscription-frequency.pl
>@@ -24,7 +24,7 @@ use C4::Serials::Frequency;
> use C4::Auth qw/check_cookie_auth/;
> use JSON qw( to_json );
> 
>-my $input=new CGI;
>+my $input=CGI->new;
> my $frqid=$input->param("frequency_id");
> my ($auth_status, $sessionID) = check_cookie_auth($input->cookie('CGISESSID'), { serials => '*' });
> if ($auth_status ne "ok") {
>diff --git a/serials/subscription-history.pl b/serials/subscription-history.pl
>index 084468c5645..4001a5de876 100755
>--- a/serials/subscription-history.pl
>+++ b/serials/subscription-history.pl
>@@ -38,7 +38,7 @@ use C4::Serials;
> use Koha::Biblios;
> use Koha::DateUtils;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( {
>     template_name   => 'serials/subscription-history.tt',
>     query           => $input,
>diff --git a/serials/subscription-numberpattern.pl b/serials/subscription-numberpattern.pl
>index 26745f1c141..db178607213 100755
>--- a/serials/subscription-numberpattern.pl
>+++ b/serials/subscription-numberpattern.pl
>@@ -23,7 +23,7 @@ use C4::Serials::Numberpattern;
> use C4::Auth qw/check_cookie_auth/;
> use JSON qw( to_json );
> 
>-my $input=new CGI;
>+my $input=CGI->new;
> 
> my ($auth_status, $sessionID) = check_cookie_auth($input->cookie('CGISESSID'), { serials => '*' });
> if ($auth_status ne "ok") {
>diff --git a/serials/subscription-numberpatterns.pl b/serials/subscription-numberpatterns.pl
>index 673acbecca5..99969b12568 100755
>--- a/serials/subscription-numberpatterns.pl
>+++ b/serials/subscription-numberpatterns.pl
>@@ -35,7 +35,7 @@ use C4::Output;
> use C4::Serials::Numberpattern;
> use C4::Serials::Frequency;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( {
>     template_name   => 'serials/subscription-numberpatterns.tt',
>     query           => $input,
>diff --git a/serials/subscription-renew.pl b/serials/subscription-renew.pl
>index 4589f97da4b..94f0f506ba5 100755
>--- a/serials/subscription-renew.pl
>+++ b/serials/subscription-renew.pl
>@@ -55,7 +55,7 @@ use C4::Output;
> use C4::Serials;
> use Koha::DateUtils;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> my $dbh   = C4::Context->dbh;
> 
> my $mode           = $query->param('mode') || q{};
>diff --git a/serials/viewalerts.pl b/serials/viewalerts.pl
>index 23a0a7d95cf..444d39c04f9 100755
>--- a/serials/viewalerts.pl
>+++ b/serials/viewalerts.pl
>@@ -26,7 +26,7 @@ use C4::Output;
> 
> use Koha::Subscriptions;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> my ($template, $loggedinuser, $cookie)
>     = get_template_and_user({template_name => 'serials/viewalerts.tt',
>diff --git a/services/itemrecorddisplay.pl b/services/itemrecorddisplay.pl
>index 2c2832f955f..79ee88eb04e 100755
>--- a/services/itemrecorddisplay.pl
>+++ b/services/itemrecorddisplay.pl
>@@ -34,7 +34,7 @@ use C4::Auth;
> use C4::Output;
> use C4::Items;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( {
>     template_name   => 'services/itemrecorddisplay.tt',
>     query           => $input,
>diff --git a/suggestion/add_user_search.pl b/suggestion/add_user_search.pl
>index 25014475edb..c810bba3765 100755
>--- a/suggestion/add_user_search.pl
>+++ b/suggestion/add_user_search.pl
>@@ -24,7 +24,7 @@ use C4::Members;
> 
> use Koha::Patron::Categories;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> my $dbh = C4::Context->dbh;
> 
>diff --git a/suggestion/suggester_search.pl b/suggestion/suggester_search.pl
>index bdbb2811374..83e8a986744 100755
>--- a/suggestion/suggester_search.pl
>+++ b/suggestion/suggester_search.pl
>@@ -26,7 +26,7 @@ use C4::Members;
> 
> use Koha::Patron::Categories;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> my $dbh = C4::Context->dbh;
> 
>diff --git a/svc/article_request b/svc/article_request
>index 4a0a3f5189c..e5c1759b2b2 100755
>--- a/svc/article_request
>+++ b/svc/article_request
>@@ -26,7 +26,7 @@ use JSON qw(to_json);
> use C4::Auth qw(check_cookie_auth);
> use Koha::ArticleRequests;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> my ( $auth_status, $sessionID ) =
>   check_cookie_auth( $cgi->cookie('CGISESSID'), { circulate => 'circulate_remaining_permissions' } );
>diff --git a/svc/authentication b/svc/authentication
>index 89aa648b779..d375a11b01f 100755
>--- a/svc/authentication
>+++ b/svc/authentication
>@@ -24,7 +24,7 @@ use CGI qw ( -utf8 );
> use C4::Auth qw/check_api_auth/;
> use XML::Simple;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> 
> # The authentication strategy for the biblios web 
> # services is as follows.
>diff --git a/svc/barcode b/svc/barcode
>index 3c362a433a0..1f71d43ff3e 100755
>--- a/svc/barcode
>+++ b/svc/barcode
>@@ -89,7 +89,7 @@ below the scannable barcode.
> 
> =cut
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> my ( $auth_status, $sessionID ) = check_cookie_auth( $input->cookie('CGISESSID'), { catalogue => '*' } );
> 
>diff --git a/svc/bib b/svc/bib
>index 11cc2609162..43fc6f68577 100755
>--- a/svc/bib
>+++ b/svc/bib
>@@ -27,7 +27,7 @@ use C4::Biblio;
> use C4::Items;
> use XML::Simple;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> binmode STDOUT, ':encoding(UTF-8)';
> 
> my ($status, $cookie, $sessionID) = check_api_auth($query, { editcatalogue => 'edit_catalogue'} );
>diff --git a/svc/bib_framework b/svc/bib_framework
>index 1b640101c24..5566d9462a1 100755
>--- a/svc/bib_framework
>+++ b/svc/bib_framework
>@@ -26,7 +26,7 @@ use XML::Simple;
> 
> binmode STDOUT, ':encoding(UTF-8)';
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> my ($status, $cookie, $sessionID) = check_api_auth($query, { editcatalogue => 'edit_catalogue'} );
> unless ($status eq 'ok') {
>     print $query->header(-type => 'text/xml', -status => '403 Forbidden');
>diff --git a/svc/bib_profile b/svc/bib_profile
>index 7203f0ce9df..46ebe379635 100755
>--- a/svc/bib_profile
>+++ b/svc/bib_profile
>@@ -27,7 +27,7 @@ use C4::Koha;
> use Koha::ItemTypes;
> use XML::Simple;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> 
> my ($status, $cookie, $sessionID) = check_api_auth($query, { editcatalogue => 'edit_catalogue'} );
> 
>diff --git a/svc/checkin b/svc/checkin
>index 2d392769b8e..93fa49503e7 100755
>--- a/svc/checkin
>+++ b/svc/checkin
>@@ -29,7 +29,7 @@ use C4::Auth qw(check_cookie_auth);
> use Koha::Checkouts;
> use Koha::Items;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> my ( $auth_status, $sessionID ) =
>   check_cookie_auth( $input->cookie('CGISESSID'),
>diff --git a/svc/checkout_notes b/svc/checkout_notes
>index 5ad972c99a0..3abd3a8c573 100755
>--- a/svc/checkout_notes
>+++ b/svc/checkout_notes
>@@ -36,7 +36,7 @@ svc/checkout_notes - Web service for managing patron notes set on issues
> 
> # AJAX requests
> my $is_ajax = is_ajax();
>-my $query = new CGI;
>+my $query = CGI->new;
> my ( $auth_status, $sessionID ) = check_cookie_auth( $query->cookie('CGISESSID'), { circulate => 'manage_checkout_notes' } );
> if ( $auth_status ne "ok" ) {
>     exit 0;
>diff --git a/svc/checkouts b/svc/checkouts
>index 3e92e401989..2dce8f3daf6 100755
>--- a/svc/checkouts
>+++ b/svc/checkouts
>@@ -31,7 +31,7 @@ use Koha::AuthorisedValues;
> use Koha::DateUtils;
> use Koha::ItemTypes;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> my ( $auth_status, $sessionID ) =
>   check_cookie_auth( $input->cookie('CGISESSID'));
>diff --git a/svc/club/cancel_enrollment b/svc/club/cancel_enrollment
>index b4f19b704c9..d67d547c962 100755
>--- a/svc/club/cancel_enrollment
>+++ b/svc/club/cancel_enrollment
>@@ -27,7 +27,7 @@ use C4::Auth qw(check_cookie_auth);
> 
> use Koha::Club::Enrollments;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> my ( $auth_status, $sessionID ) =
>   check_cookie_auth( $cgi->cookie('CGISESSID'), { clubs => 'enroll' } );
>diff --git a/svc/club/delete b/svc/club/delete
>index e48062f5119..636b0ed7242 100755
>--- a/svc/club/delete
>+++ b/svc/club/delete
>@@ -26,7 +26,7 @@ use JSON qw(to_json);
> use C4::Auth qw(check_cookie_auth);
> use Koha::Clubs;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> my ( $auth_status, $sessionID ) = check_cookie_auth( $cgi->cookie('CGISESSID'), { clubs => 'edit_clubs' } );
> if ( $auth_status ne "ok" ) {
>diff --git a/svc/club/enroll b/svc/club/enroll
>index e9f75441d05..014ca4c6d40 100755
>--- a/svc/club/enroll
>+++ b/svc/club/enroll
>@@ -28,7 +28,7 @@ use Koha::Club::Enrollment::Fields;
> use Koha::Club::Enrollments;
> use Koha::Clubs;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> my ( $auth_status, $sessionID ) =
>   check_cookie_auth( $cgi->cookie('CGISESSID'), { clubs => 'enroll' } );
>diff --git a/svc/club/template/delete b/svc/club/template/delete
>index c15e47a032e..b3700b6f2b2 100755
>--- a/svc/club/template/delete
>+++ b/svc/club/template/delete
>@@ -27,7 +27,7 @@ use C4::Auth qw(check_cookie_auth);
> 
> use Koha::Club::Templates;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> my ( $auth_status, $sessionID ) = check_cookie_auth( $cgi->cookie('CGISESSID'), { clubs => 'edit_templates' } );
> if ( $auth_status ne "ok" ) {
>diff --git a/svc/cover_images b/svc/cover_images
>index 590a243dc8d..1e3574ffb2a 100755
>--- a/svc/cover_images
>+++ b/svc/cover_images
>@@ -25,7 +25,7 @@ use C4::Auth qw/check_cookie_auth/;
> use C4::Images;
> use JSON qw/to_json/;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> my ( $auth_status, $sessionID ) =
>         check_cookie_auth(
>diff --git a/svc/creator_batches b/svc/creator_batches
>index 28436e033e0..743cf11ffd0 100755
>--- a/svc/creator_batches
>+++ b/svc/creator_batches
>@@ -38,7 +38,7 @@ svc/creator_batches - Web service for managing AJAX functionality for patroncard
> 
> # AJAX requests
> my $is_ajax = is_ajax();
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> my ( $auth_status, $sessionID ) = check_cookie_auth( $cgi->cookie('CGISESSID'), { catalogue => 1 } );
> if ( $auth_status ne "ok" ) {
>     exit 0;
>diff --git a/svc/hold/resume b/svc/hold/resume
>index 497a4975fda..e14c6b1b39f 100755
>--- a/svc/hold/resume
>+++ b/svc/hold/resume
>@@ -28,7 +28,7 @@ use C4::Auth qw(check_cookie_auth);
> use Koha::DateUtils qw(dt_from_string);
> use Koha::Holds;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> my ( $auth_status, $sessionID ) =
>   check_cookie_auth( $input->cookie('CGISESSID'), { circulate => 'circulate_remaining_permissions' } );
>diff --git a/svc/hold/suspend b/svc/hold/suspend
>index 6a1bd86cfc2..41b4130a398 100755
>--- a/svc/hold/suspend
>+++ b/svc/hold/suspend
>@@ -28,7 +28,7 @@ use C4::Auth qw(check_cookie_auth);
> use Koha::DateUtils qw(dt_from_string);
> use Koha::Holds;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> my ( $auth_status, $sessionID ) =
>   check_cookie_auth( $input->cookie('CGISESSID'), { circulate => 'circulate_remaining_permissions' } );
>diff --git a/svc/holds b/svc/holds
>index 37254b64074..1a2fc337cb5 100755
>--- a/svc/holds
>+++ b/svc/holds
>@@ -32,7 +32,7 @@ use Koha::Holds;
> use Koha::ItemTypes;
> use Koha::Libraries;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> my ( $auth_status, $sessionID ) =
>   check_cookie_auth( $input->cookie('CGISESSID'),
>diff --git a/svc/import_bib b/svc/import_bib
>index 30734638935..092d8fd2958 100755
>--- a/svc/import_bib
>+++ b/svc/import_bib
>@@ -28,7 +28,7 @@ use C4::Matcher;
> use XML::Simple;
> # use Carp::Always;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> binmode STDOUT, ':encoding(UTF-8)';
> 
> my ($status, $cookie, $sessionID) = check_api_auth($query, { editcatalogue => 'edit_catalogue'} );
>diff --git a/svc/letters/preview b/svc/letters/preview
>index 11c3d1843a5..17d7ad87518 100755
>--- a/svc/letters/preview
>+++ b/svc/letters/preview
>@@ -28,7 +28,7 @@ use Koha::Checkouts;
> use Koha::Items;
> use Koha::Patrons;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
>     {
>diff --git a/svc/mana/increment b/svc/mana/increment
>index 5b58496ac7f..2b0197bdc06 100755
>--- a/svc/mana/increment
>+++ b/svc/mana/increment
>@@ -27,7 +27,7 @@ use CGI;
> use JSON;
> 
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> binmode STDOUT, ":encoding(UTF-8)";
> print $input->header( -type => 'text/plain', -charset => 'UTF-8' );
> 
>diff --git a/svc/mana/search b/svc/mana/search
>index 16b8ab6fdf6..84b356c738f 100755
>--- a/svc/mana/search
>+++ b/svc/mana/search
>@@ -27,7 +27,7 @@ use C4::Output qw( output_html_with_http_headers );
> 
> use CGI;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> my ( $auth_status, $sessionID ) =
>   check_cookie_auth( $input->cookie('CGISESSID'),
>@@ -78,4 +78,4 @@ $template->param( $input->param('resource')."s" => $result->{data} );
> $template->param( statuscode => $result->{code} );
> $template->param( msg => $result->{msg} );
> 
>-output_html_with_http_headers $input, $cookie, $template->output;
>\ No newline at end of file
>+output_html_with_http_headers $input, $cookie, $template->output;
>diff --git a/svc/mana/share b/svc/mana/share
>index 504b2010464..367b5e7ffaa 100755
>--- a/svc/mana/share
>+++ b/svc/mana/share
>@@ -26,7 +26,7 @@ use C4::Auth qw(check_cookie_auth);
> use CGI;
> use JSON;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> binmode STDOUT, ":encoding(UTF-8)";
> print $input->header( -type => 'text/plain', -charset => 'UTF-8' );
> 
>diff --git a/svc/mana/use b/svc/mana/use
>index f08e9d12d59..6b6d6bc235b 100755
>--- a/svc/mana/use
>+++ b/svc/mana/use
>@@ -28,7 +28,7 @@ use CGI;
> use JSON;
> 
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> binmode STDOUT, ":encoding(UTF-8)";
> print $input->header( -type => 'text/plain', -charset => 'UTF-8' );
> 
>diff --git a/svc/members/add_to_list b/svc/members/add_to_list
>index 55021d936ab..62bcfced9e4 100755
>--- a/svc/members/add_to_list
>+++ b/svc/members/add_to_list
>@@ -24,7 +24,7 @@ use C4::Auth qw( check_cookie_auth );
> use JSON qw( to_json );
> use Koha::List::Patron;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> my ( $auth_status, $sessionID ) = check_cookie_auth(
>     $input->cookie('CGISESSID'),
>diff --git a/svc/members/search b/svc/members/search
>index 06201ef4aed..7cad0e8ab03 100755
>--- a/svc/members/search
>+++ b/svc/members/search
>@@ -27,7 +27,7 @@ use C4::Utils::DataTables::Members qw( search );
> use Koha::DateUtils qw( output_pref dt_from_string );
> use Koha::Patrons;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> exit unless $input->param('template_path');
> 
>diff --git a/svc/new_bib b/svc/new_bib
>index c41d298b2ce..0aa04fc6cfa 100755
>--- a/svc/new_bib
>+++ b/svc/new_bib
>@@ -27,7 +27,7 @@ use C4::Items;
> use XML::Simple;
> use C4::Charset;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> binmode STDOUT, ':encoding(UTF-8)';
> 
> my ($status, $cookie, $sessionID) = check_api_auth($query, { editcatalogue => 'edit_catalogue'} );
>diff --git a/svc/problem_reports b/svc/problem_reports
>index 9fedc92ebe1..9df283efb50 100755
>--- a/svc/problem_reports
>+++ b/svc/problem_reports
>@@ -36,7 +36,7 @@ svc/problem_reports - Web service for managing OPAC problem reports
> 
> # AJAX requests
> my $is_ajax = is_ajax();
>-my $query = new CGI;
>+my $query = CGI->new;
> my ( $auth_status, $sessionID ) = check_cookie_auth( $query->cookie('CGISESSID'), { problem_reports => 1 } );
> if ( $auth_status ne "ok" ) {
>     exit 0;
>diff --git a/svc/renew b/svc/renew
>index 51b915b004d..786ce572021 100755
>--- a/svc/renew
>+++ b/svc/renew
>@@ -28,7 +28,7 @@ use C4::Auth qw(check_cookie_auth);
> 
> use Koha::DateUtils qw(output_pref dt_from_string);
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> my ( $auth_status, $sessionID ) =
>   check_cookie_auth( $input->cookie('CGISESSID'),
>diff --git a/svc/return_claims b/svc/return_claims
>index e1971ef9bf2..a37ac217c79 100755
>--- a/svc/return_claims
>+++ b/svc/return_claims
>@@ -29,7 +29,7 @@ use Koha::AuthorisedValues;
> use Koha::DateUtils;
> use Koha::Patrons;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> my ( $auth_status, $sessionID ) =
>   check_cookie_auth( $input->cookie('CGISESSID') );
>diff --git a/svc/virtualshelves/search b/svc/virtualshelves/search
>index 1bbbeba7506..403da12c216 100755
>--- a/svc/virtualshelves/search
>+++ b/svc/virtualshelves/search
>@@ -8,7 +8,7 @@ use C4::Output qw( output_with_http_headers );
> use C4::Utils::DataTables qw( dt_get_params );
> use C4::Utils::DataTables::VirtualShelves qw( search );
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> exit unless $input->param('template_path');
> 
>diff --git a/t/Auth_with_shibboleth.t b/t/Auth_with_shibboleth.t
>index 7a91a009c44..622fd161fd8 100755
>--- a/t/Auth_with_shibboleth.t
>+++ b/t/Auth_with_shibboleth.t
>@@ -63,7 +63,7 @@ $ENV{'city'} = undef;
> 
> # Setup Mocks
> ## Mock Context
>-my $context = new Test::MockModule('C4::Context');
>+my $context = Test::MockModule->new('C4::Context');
> 
> ### Mock ->config
> $context->mock( 'config', \&mockedConfig );
>@@ -81,7 +81,7 @@ my $interface = 'opac';
> $context->mock( 'interface', \&mockedInterface );
> 
> ## Mock Database
>-my $database = new Test::MockModule('Koha::Database');
>+my $database = Test::MockModule->new('Koha::Database');
> 
> ### Mock ->schema
> $database->mock( 'schema', \&mockedSchema );
>diff --git a/t/Calendar.t b/t/Calendar.t
>index b4b94bf9c33..151e8b1874f 100755
>--- a/t/Calendar.t
>+++ b/t/Calendar.t
>@@ -49,7 +49,7 @@ $db->mock(
> # We need to mock the C4::Context->preference method for
> # simplicity and re-usability of the session definition. Any
> # syspref fits for syspref-agnostic tests.
>-my $module_context = new Test::MockModule('C4::Context');
>+my $module_context = Test::MockModule->new('C4::Context');
> $module_context->mock(
>     'preference',
>     sub {
>diff --git a/t/Context.t b/t/Context.t
>index 3ecdb317241..cbdaaedf42d 100755
>--- a/t/Context.t
>+++ b/t/Context.t
>@@ -63,7 +63,7 @@ subtest 'needs_install() tests' => sub {
>     is( C4::Context->needs_install, 1, "->preference(Version) is not defined, need to install" );
> };
> 
>-my $context = new Test::MockModule('C4::Context');
>+my $context = Test::MockModule->new('C4::Context');
> my $userenv = {};
> 
> $context->mock('userenv', sub {
>diff --git a/t/DateUtils.t b/t/DateUtils.t
>index 52489970583..5b00c771247 100755
>--- a/t/DateUtils.t
>+++ b/t/DateUtils.t
>@@ -188,7 +188,7 @@ cmp_ok $date_string, 'eq', '12/11/2013 06:35 PM', 'as_due_date with hours and ti
> my $now = DateTime->now;
> is( dt_from_string, $now, "Without parameter, dt_from_string should return today" );
> 
>-my $module_context = new Test::MockModule('C4::Context');
>+my $module_context = Test::MockModule->new('C4::Context');
> $module_context->mock(
>     'tz',
>     sub {
>diff --git a/t/Koha_MetadataRecord.t b/t/Koha_MetadataRecord.t
>index 0c2c53e3043..3851bafd96d 100755
>--- a/t/Koha_MetadataRecord.t
>+++ b/t/Koha_MetadataRecord.t
>@@ -94,13 +94,13 @@ subtest "new() tests" => sub {
>     my $record = MARC::Record->new();
>     my $metadata_record;
> 
>-    warning_is { $metadata_record = new Koha::MetadataRecord({
>+    warning_is { $metadata_record = Koha::MetadataRecord->new({
>                         record => $record }) }
>                { carped => 'No schema passed' },
>         "Metadata schema is mandatory, raise a carped warning if omitted";
>     is( $metadata_record, undef, "Metadata schema is mandatory, return undef if omitted");
> 
>-    $metadata_record = new Koha::MetadataRecord({
>+    $metadata_record = Koha::MetadataRecord->new({
>         record => $record,
>         schema => 'marc21'
>     });
>@@ -115,7 +115,7 @@ subtest "new() tests" => sub {
>     my $weird_record = {};
>     bless $weird_record, 'Weird::Class';
> 
>-    $metadata_record = new Koha::MetadataRecord({
>+    $metadata_record = Koha::MetadataRecord->new({
>         record => $weird_record,
>         schema => 'something',
>         format => 'else',
>@@ -129,7 +129,7 @@ subtest "new() tests" => sub {
>     is( $metadata_record->id, 'an id', 'The id correctly set');
> 
>     # Having a record object is mandatory
>-    warning_is { $metadata_record = new Koha::MetadataRecord({
>+    warning_is { $metadata_record = Koha::MetadataRecord->new({
>                                         record => undef,
>                                         schema => 'something',
>                                         format => 'else',
>diff --git a/t/Koha_Template_Plugin_Koha.t b/t/Koha_Template_Plugin_Koha.t
>index 5cba73b22c6..13079a97533 100755
>--- a/t/Koha_Template_Plugin_Koha.t
>+++ b/t/Koha_Template_Plugin_Koha.t
>@@ -38,12 +38,12 @@ subtest "Koha::Template::Plugin::Koha::Version tests" => sub {
>     my $development;
> 
>     # Mock Koha::version()
>-    my $koha = new Test::MockModule('Koha');
>+    my $koha = Test::MockModule->new('Koha');
>     $koha->mock( 'version', sub {
>         return "$major.$minor.$maintenance.$development";
>     });
> 
>-    my $rnd = new String::Random;
>+    my $rnd = String::Random->new;
>     # development version test
>     $major       = $rnd->randregex('\d');
>     $minor       = $rnd->randregex('\d\d');
>diff --git a/t/Languages.t b/t/Languages.t
>index 14b84135bba..22b7fbb2a1f 100755
>--- a/t/Languages.t
>+++ b/t/Languages.t
>@@ -31,7 +31,7 @@ my @languages = (); # stores the list of active languages
>                     # for the syspref mock
> my $return_undef = 0;
> 
>-my $module_context = new Test::MockModule('C4::Context');
>+my $module_context = Test::MockModule->new('C4::Context');
> 
> $module_context->mock(
>     preference => sub {
>diff --git a/t/Output_JSONStream.t b/t/Output_JSONStream.t
>index 13702a65f6e..bf7b1842c19 100755
>--- a/t/Output_JSONStream.t
>+++ b/t/Output_JSONStream.t
>@@ -12,7 +12,7 @@ BEGIN {
>         use_ok('C4::Output::JSONStream');
> }
> 
>-my $json = new C4::Output::JSONStream;
>+my $json = C4::Output::JSONStream->new;
> is($json->output,'{}',"Making sure JSON output is blank just after its created.");
> $json->param( issues => [ 'yes!', 'please', 'no' ] );
> is($json->output,'{"issues":["yes!","please","no"]}',"Making sure JSON output has added what we told it to.");
>diff --git a/t/Search/History.t b/t/Search/History.t
>index 2808e441499..030bca2ab6f 100755
>--- a/t/Search/History.t
>+++ b/t/Search/History.t
>@@ -23,7 +23,7 @@ my $expected_recent_searches = [
> # Create new session and put its id into CGISESSID cookie
> my $session = C4::Auth::get_session("");
> $session->flush;
>-my $input = new CookieSimulator({CGISESSID => $session->id});
>+my $input = CookieSimulator->new({CGISESSID => $session->id});
> 
> my @recent_searches = C4::Search::History::get_from_session({ cgi => $input });
> is_deeply(\@recent_searches, [], 'at start, there is no recent searches');
>diff --git a/t/SuggestionEngine_AuthorityFile.t b/t/SuggestionEngine_AuthorityFile.t
>index eab5fb60e0c..486e9034a90 100755
>--- a/t/SuggestionEngine_AuthorityFile.t
>+++ b/t/SuggestionEngine_AuthorityFile.t
>@@ -45,7 +45,7 @@ $db->mock( _new_schema => sub { return Schema(); } );
> 
> use_ok('Koha::SuggestionEngine');
> 
>-my $module = new Test::MockModule('C4::AuthoritiesMarc');
>+my $module = Test::MockModule->new('C4::AuthoritiesMarc');
> $module->mock('SearchAuthorities', sub {
>         return [ { 'authid' => '1234',
>                     'reported_tag' => undef,
>diff --git a/t/db_dependent/00-strict.t b/t/db_dependent/00-strict.t
>index c91c6017f93..c1074b204bc 100755
>--- a/t/db_dependent/00-strict.t
>+++ b/t/db_dependent/00-strict.t
>@@ -47,7 +47,7 @@ if ( $ENV{KOHA_PROVE_CPUS} ) {
> print "Using $ncpu CPUs...\n"
>     if $ENV{DEBUG};
> 
>-my $pm   = new Parallel::ForkManager($ncpu);
>+my $pm   = Parallel::ForkManager->new($ncpu);
> 
> foreach my $d (@dirs) {
>     $pm->start and next;    # do the fork
>diff --git a/t/db_dependent/Accounts.t b/t/db_dependent/Accounts.t
>index 12e11f5edef..49ada1e4450 100755
>--- a/t/db_dependent/Accounts.t
>+++ b/t/db_dependent/Accounts.t
>@@ -62,7 +62,7 @@ $dbh->do(q|DELETE FROM borrowers|);
> 
> my $branchcode = $library->{branchcode};
> 
>-my $context = new Test::MockModule('C4::Context');
>+my $context = Test::MockModule->new('C4::Context');
> $context->mock( 'userenv', sub {
>     return {
>         flags  => 1,
>@@ -1151,7 +1151,7 @@ subtest "Payment notice tests" => sub {
>     )->store();
> 
>     my $manager = $builder->build_object({ class => "Koha::Patrons" });
>-    my $context = new Test::MockModule('C4::Context');
>+    my $context = Test::MockModule->new('C4::Context');
>     $context->mock( 'userenv', sub {
>         return {
>             number     => $manager->borrowernumber,
>diff --git a/t/db_dependent/Acquisition.t b/t/db_dependent/Acquisition.t
>index 6028fea2b3d..5d885018f83 100755
>--- a/t/db_dependent/Acquisition.t
>+++ b/t/db_dependent/Acquisition.t
>@@ -580,7 +580,7 @@ ok($active_count >= scalar GetBudgetsReport(1), "GetBudgetReport doesn't return
> 
> # "Flavoured" tests (tests that required a run for each marc flavour)
> # Tests should be added to the run_flavoured_tests sub below
>-my $biblio_module = new Test::MockModule('C4::Biblio');
>+my $biblio_module = Test::MockModule->new('C4::Biblio');
> $biblio_module->mock(
>     'GetMarcSubfieldStructure',
>     sub {
>diff --git a/t/db_dependent/Auth.t b/t/db_dependent/Auth.t
>index e149aec8679..3e7a1e60edd 100755
>--- a/t/db_dependent/Auth.t
>+++ b/t/db_dependent/Auth.t
>@@ -201,7 +201,7 @@ subtest 'checkpw lockout tests' => sub {
>     }
> 
>     # Mock checkauth, build the scenario
>-    my $auth = new Test::MockModule( 'C4::Auth' );
>+    my $auth = Test::MockModule->new( 'C4::Auth' );
>     $auth->mock( 'checkauth', \&MockedCheckauth );
> 
>     # Make sure 'EnableOpacSearchHistory' is set
>@@ -214,7 +214,7 @@ subtest 'checkpw lockout tests' => sub {
>     $ENV{"SERVER_PORT"} = 80;
>     $ENV{"HTTP_COOKIE"} = 'CGISESSID=nirvana';
> 
>-    my $query = new CGI;
>+    my $query = CGI->new;
>     $query->param('language','es-ES');
> 
>     my ( $template, $loggedinuser, $cookies ) = get_template_and_user(
>diff --git a/t/db_dependent/Auth_with_cas.t b/t/db_dependent/Auth_with_cas.t
>index 5b876055450..b6d9e21f962 100755
>--- a/t/db_dependent/Auth_with_cas.t
>+++ b/t/db_dependent/Auth_with_cas.t
>@@ -49,7 +49,7 @@ my $query_string = 'ticket=foo&bar=baz';
> $ENV{QUERY_STRING} = $query_string;
> $ENV{SCRIPT_NAME} = '/cgi-bin/koha/opac-user.pl';
> 
>-my $cgi = new CGI($query_string);
>+my $cgi = CGI->new($query_string);
> $cgi->delete('ticket');
> 
> # _url_with_get_params tests
>diff --git a/t/db_dependent/AuthoritiesMarc.t b/t/db_dependent/AuthoritiesMarc.t
>index a24d917f501..e57f6124b17 100755
>--- a/t/db_dependent/AuthoritiesMarc.t
>+++ b/t/db_dependent/AuthoritiesMarc.t
>@@ -21,7 +21,7 @@ BEGIN {
> 
> # We are now going to be testing the authorities hierarchy code, and
> # therefore need to pretend that we have consistent data in our database
>-my $module = new Test::MockModule('C4::AuthoritiesMarc');
>+my $module = Test::MockModule->new('C4::AuthoritiesMarc');
> $module->mock('GetHeaderAuthority', sub {
>     return {'authtrees' => ''};
> });
>diff --git a/t/db_dependent/BackgroundJob.t b/t/db_dependent/BackgroundJob.t
>index 2a9e8214950..011c775119a 100755
>--- a/t/db_dependent/BackgroundJob.t
>+++ b/t/db_dependent/BackgroundJob.t
>@@ -10,7 +10,7 @@ use Koha::Database;
> BEGIN {
>     use_ok('C4::BackgroundJob');
> }
>-my $query = new CGI;
>+my $query = CGI->new;
> 
> my $schema = Koha::Database->new->schema;
> $schema->storage->txn_begin;
>diff --git a/t/db_dependent/Biblio.t b/t/db_dependent/Biblio.t
>index 4d3db2491e1..21d2c071057 100755
>--- a/t/db_dependent/Biblio.t
>+++ b/t/db_dependent/Biblio.t
>@@ -153,7 +153,7 @@ subtest "Authority creation with default linker" => sub {
> 
> 
> # Mocking variables
>-my $biblio_module = new Test::MockModule('C4::Biblio');
>+my $biblio_module = Test::MockModule->new('C4::Biblio');
> $biblio_module->mock(
>     'GetMarcSubfieldStructure',
>     sub {
>@@ -185,7 +185,7 @@ $biblio_module->mock(
>       }
> );
> 
>-my $currency = new Test::MockModule('Koha::Acquisition::Currencies');
>+my $currency = Test::MockModule->new('Koha::Acquisition::Currencies');
> $currency->mock(
>     'get_active',
>     sub {
>diff --git a/t/db_dependent/Circulation.t b/t/db_dependent/Circulation.t
>index d078ef1550b..01cf6574266 100755
>--- a/t/db_dependent/Circulation.t
>+++ b/t/db_dependent/Circulation.t
>@@ -3313,7 +3313,7 @@ subtest 'Incremented fee tests' => sub {
>     my $library =
>       $builder->build_object( { class => 'Koha::Libraries' } )->store;
> 
>-    my $module = new Test::MockModule('C4::Context');
>+    my $module = Test::MockModule->new('C4::Context');
>     $module->mock( 'userenv', sub { { branch => $library->id } } );
> 
>     my $patron = $builder->build_object(
>diff --git a/t/db_dependent/Circulation/CheckIfIssuedToPatron.t b/t/db_dependent/Circulation/CheckIfIssuedToPatron.t
>index bc0d093855b..2d67ffc022e 100755
>--- a/t/db_dependent/Circulation/CheckIfIssuedToPatron.t
>+++ b/t/db_dependent/Circulation/CheckIfIssuedToPatron.t
>@@ -72,7 +72,7 @@ my $borrowernumber2 = Koha::Patron->new({categorycode => $categorycode, branchco
> my $borrower1 = Koha::Patrons->find( $borrowernumber1 )->unblessed;
> my $borrower2 = Koha::Patrons->find( $borrowernumber2 )->unblessed;
> 
>-my $module = new Test::MockModule('C4::Context');
>+my $module = Test::MockModule->new('C4::Context');
> $module->mock('userenv', sub { { branch => $branchcode } });
> 
> 
>diff --git a/t/db_dependent/Circulation/GetPendingOnSiteCheckouts.t b/t/db_dependent/Circulation/GetPendingOnSiteCheckouts.t
>index 33d186ceb44..26985782602 100755
>--- a/t/db_dependent/Circulation/GetPendingOnSiteCheckouts.t
>+++ b/t/db_dependent/Circulation/GetPendingOnSiteCheckouts.t
>@@ -66,7 +66,7 @@ my $borrowernumber = $builder->build(
> my $borrower = Koha::Patrons->find( $borrowernumber )->unblessed;
> 
> # Need to mock userenv for AddIssue
>-my $module = new Test::MockModule('C4::Context');
>+my $module = Test::MockModule->new('C4::Context');
> $module->mock('userenv', sub { { branch => $branchcode } });
> AddIssue($borrower, '0101');
> AddIssue($borrower, '0203');
>diff --git a/t/db_dependent/Creators/Lib.t b/t/db_dependent/Creators/Lib.t
>index 4a86b5db0a0..7d10b353b1d 100755
>--- a/t/db_dependent/Creators/Lib.t
>+++ b/t/db_dependent/Creators/Lib.t
>@@ -1456,7 +1456,7 @@ subtest '_add_backtics' => sub {
> my %preferences;
> 
> sub mock_preference {
>-    my $context = new Test::MockModule('C4::Context');
>+    my $context = Test::MockModule->new('C4::Context');
>     my ( $pref, $value ) = @_;
>     $preferences{$pref} = $value;
>     $context->mock(
>diff --git a/t/db_dependent/FrameworkPlugin.t b/t/db_dependent/FrameworkPlugin.t
>index 345499d7f09..3a28df4055c 100755
>--- a/t/db_dependent/FrameworkPlugin.t
>+++ b/t/db_dependent/FrameworkPlugin.t
>@@ -120,14 +120,14 @@ sub test05 {
>     my ( $incl ) = @_;
>     #mock to simulate some authorization and eliminate lots of output
>     my $launched = 0;
>-    my $mContext = new Test::MockModule('C4::Context');
>-    my $mAuth = new Test::MockModule('C4::Auth');
>-    my $mOutput = new Test::MockModule('C4::Output');
>+    my $mContext = Test::MockModule->new('C4::Context');
>+    my $mAuth = Test::MockModule->new('C4::Auth');
>+    my $mOutput = Test::MockModule->new('C4::Output');
>     $mContext->mock( 'userenv', \&mock_userenv );
>     $mAuth->mock( 'checkauth', sub { return ( 1, undef, 1, all_perms() ); } );
>     $mOutput->mock('output_html_with_http_headers',  sub { ++$launched; } );
> 
>-    my $cgi=new CGI;
>+    my $cgi=CGI->new;
>     my ( $plugins, $min ) = selected_plugins( $incl );
> 
>     # test building them
>diff --git a/t/db_dependent/ILSDI_Services.t b/t/db_dependent/ILSDI_Services.t
>index 3b599b67f0e..36b93293ede 100755
>--- a/t/db_dependent/ILSDI_Services.t
>+++ b/t/db_dependent/ILSDI_Services.t
>@@ -60,7 +60,7 @@ subtest 'AuthenticatePatron test' => sub {
>         }
>     });
> 
>-    my $query = new CGI;
>+    my $query = CGI->new;
>     $query->param( 'username', $borrower->{userid});
>     $query->param( 'password', $plain_password);
> 
>@@ -207,7 +207,7 @@ subtest 'GetPatronInfo/GetBorrowerAttributes test for extended patron attributes
>     );
> 
>     # Prepare and send web request for IL-SDI server:
>-    my $query = new CGI;
>+    my $query = CGI->new;
>     $query->param( 'service', 'GetPatronInfo' );
>     $query->param( 'patron_id', $brwr->{'borrowernumber'} );
>     $query->param( 'show_attributes', '1' );
>@@ -316,7 +316,7 @@ subtest 'Holds test' => sub {
>         }
>     );
> 
>-    my $query = new CGI;
>+    my $query = CGI->new;
>     $query->param( 'patron_id', $patron->{borrowernumber});
>     $query->param( 'bib_id', $item->biblionumber);
> 
>@@ -339,7 +339,7 @@ subtest 'Holds test' => sub {
> 
>     my $biblio_with_no_item = $builder->build_sample_biblio;
> 
>-    $query = new CGI;
>+    $query = CGI->new;
>     $query->param( 'patron_id', $patron->{borrowernumber});
>     $query->param( 'bib_id', $biblio_with_no_item->biblionumber);
> 
>@@ -363,7 +363,7 @@ subtest 'Holds test' => sub {
>         }
>     );
> 
>-    $query = new CGI;
>+    $query = CGI->new;
>     $query->param( 'patron_id', $patron->{borrowernumber});
>     $query->param( 'bib_id', $item2->biblionumber);
>     $query->param( 'item_id', $item2->itemnumber);
>@@ -395,7 +395,7 @@ subtest 'Holds test' => sub {
>         }
>     );
> 
>-    $query = new CGI;
>+    $query = CGI->new;
>     $query->param( 'patron_id', $patron->{borrowernumber});
>     $query->param( 'bib_id', $item3->biblionumber);
>     $query->param( 'item_id', $item4->itemnumber);
>@@ -459,7 +459,7 @@ subtest 'Holds test for branch transfer limits' => sub {
>         itemtype => $item->effective_itemtype,
>     })->store();
> 
>-    my $query = new CGI;
>+    my $query = CGI->new;
>     $query->param( 'pickup_location', $pickup_branch->{branchcode} );
>     $query->param( 'patron_id', $patron->{borrowernumber});
>     $query->param( 'bib_id', $item->biblionumber);
>@@ -519,7 +519,7 @@ subtest 'Holds test with start_date and end_date' => sub {
>         }
>     );
> 
>-    my $query = new CGI;
>+    my $query = CGI->new;
>     $query->param( 'pickup_location', $pickup_library->branchcode );
>     $query->param( 'patron_id', $patron->borrowernumber);
>     $query->param( 'bib_id', $item->biblionumber);
>@@ -569,7 +569,7 @@ subtest 'GetRecords' => sub {
> 
>     ModItemTransfer($item->itemnumber, $branch1->{branchcode}, $branch2->{branchcode});
> 
>-    my $cgi = new CGI;
>+    my $cgi = CGI->new;
>     $cgi->param(service => 'GetRecords');
>     $cgi->param(id => $item->biblionumber);
> 
>@@ -592,7 +592,7 @@ subtest 'RenewHold' => sub {
> 
>     $schema->storage->txn_begin;
> 
>-    my $cgi    = new CGI;
>+    my $cgi    = CGI->new;
>     my $patron = $builder->build_object( { class => 'Koha::Patrons' } );
>     my $item   = $builder->build_sample_item;
>     $cgi->param( patron_id => $patron->borrowernumber );
>@@ -640,7 +640,7 @@ subtest 'GetPatronInfo paginated loans' => sub {
>             branchcode => $library->branchcode,
>         },
>     });
>-    my $module = new Test::MockModule('C4::Context');
>+    my $module = Test::MockModule->new('C4::Context');
>     $module->mock('userenv', sub { { branch => $library->branchcode } });
>     my $date_due = DateTime->now->add(weeks => 2);
>     my $issue1 = C4::Circulation::AddIssue($patron->unblessed, $item1->barcode, $date_due);
>@@ -650,7 +650,7 @@ subtest 'GetPatronInfo paginated loans' => sub {
>     my $issue3 = C4::Circulation::AddIssue($patron->unblessed, $item3->barcode, $date_due);
>     my $date_due3 = Koha::DateUtils::dt_from_string( $issue3->date_due );
> 
>-    my $cgi = new CGI;
>+    my $cgi = CGI->new;
> 
>     $cgi->param( 'service', 'GetPatronInfo' );
>     $cgi->param( 'patron_id', $patron->borrowernumber );
>diff --git a/t/db_dependent/Items.t b/t/db_dependent/Items.t
>index efd3bb9628d..53ac9b8d932 100755
>--- a/t/db_dependent/Items.t
>+++ b/t/db_dependent/Items.t
>@@ -541,9 +541,9 @@ subtest 'SearchItems test' => sub {
>     $cache->clear_from_cache("default_value_for_mod_marc-");
>     $cache->clear_from_cache("MarcSubfieldStructure-$frameworkcode");
> 
>-    my $item3_record = new MARC::Record;
>+    my $item3_record = MARC::Record->new;
>     $item3_record->append_fields(
>-        new MARC::Field(
>+        MARC::Field->new(
>             $itemfield, '', '',
>             'z' => 'foobar',
>             'y' => $itemtype->{itemtype}
>@@ -966,7 +966,7 @@ subtest 'ModItemFromMarc' => sub {
>     my $itemtype = $builder->build_object({ class => 'Koha::ItemTypes' });
>     my $biblio = $builder->build_sample_biblio;
>     my ( $lost_tag, $lost_sf ) = GetMarcFromKohaField( 'items.itemlost' );
>-    my $item_record = new MARC::Record;
>+    my $item_record = MARC::Record->new;
>     $item_record->append_fields(
>         MARC::Field->new(
>             $itemfield, '', '',
>@@ -985,7 +985,7 @@ subtest 'ModItemFromMarc' => sub {
> 
>     $item->new_status("this is something")->store;
> 
>-    my $updated_item_record = new MARC::Record;
>+    my $updated_item_record = MARC::Record->new;
>     $updated_item_record->append_fields(
>         MARC::Field->new(
>             $itemfield, '', '',
>diff --git a/t/db_dependent/Koha/Account.t b/t/db_dependent/Koha/Account.t
>index 0941fbbca58..a42bda5e54a 100755
>--- a/t/db_dependent/Koha/Account.t
>+++ b/t/db_dependent/Koha/Account.t
>@@ -959,7 +959,7 @@ subtest 'pay() renews items when appropriate' => sub {
>     # Enable renewing upon fine payment
>     t::lib::Mocks::mock_preference( 'RenewAccruingItemWhenPaid', 1 );
>     my $called = 0;
>-    my $module = new Test::MockModule('C4::Circulation');
>+    my $module = Test::MockModule->new('C4::Circulation');
>     $module->mock('AddRenewal', sub { $called = 1; });
>     $module->mock('CanBookBeRenewed', sub { return 1; });
>     $account->pay(
>diff --git a/t/db_dependent/Koha/Account/Line.t b/t/db_dependent/Koha/Account/Line.t
>index fe0376388cf..183134613f6 100755
>--- a/t/db_dependent/Koha/Account/Line.t
>+++ b/t/db_dependent/Koha/Account/Line.t
>@@ -324,7 +324,7 @@ subtest 'apply() tests' => sub {
>     # Enable renewing upon fine payment
>     t::lib::Mocks::mock_preference( 'RenewAccruingItemWhenPaid', 1 );
>     my $called = 0;
>-    my $module = new Test::MockModule('C4::Circulation');
>+    my $module = Test::MockModule->new('C4::Circulation');
>     $module->mock('AddRenewal', sub { $called = 1; });
>     $module->mock('CanBookBeRenewed', sub { return 1; });
>     my $credit_renew = $account->add_credit({ amount => 100, user_id => $patron->id, interface => 'commandline' });
>@@ -452,7 +452,7 @@ subtest 'Renewal related tests' => sub {
>         }
>     );
>     my $called = 0;
>-    my $module = new Test::MockModule('C4::Circulation');
>+    my $module = Test::MockModule->new('C4::Circulation');
>     $module->mock('AddRenewal', sub { $called = 1; });
>     $module->mock('CanBookBeRenewed', sub { return 1; });
>     $line->renew_item;
>diff --git a/t/db_dependent/Koha/Patron/Messages.t b/t/db_dependent/Koha/Patron/Messages.t
>index e1da75324f8..06de4d29341 100755
>--- a/t/db_dependent/Koha/Patron/Messages.t
>+++ b/t/db_dependent/Koha/Patron/Messages.t
>@@ -52,7 +52,7 @@ my $new_message_1  = Koha::Patron::Message->new(
> )->store;
> is( get_nb_of_logactions(), $nb_of_logaction, 'With BorrowersLog off, no new log should have been added' );
> 
>-my $context = new Test::MockModule('C4::Context');
>+my $context = Test::MockModule->new('C4::Context');
> $context->mock( 'userenv', sub {
>     return {
>         number => $patron_2->{borrowernumber},
>diff --git a/t/db_dependent/Koha/Patrons.t b/t/db_dependent/Koha/Patrons.t
>index 0f000085888..60c9a7324cb 100755
>--- a/t/db_dependent/Koha/Patrons.t
>+++ b/t/db_dependent/Koha/Patrons.t
>@@ -342,7 +342,7 @@ subtest 'is_going_to_expire' => sub {
>     { # Testing invalid is going to expiry date
>         t::lib::Mocks::mock_preference('NotifyBorrowerDeparture', 30);
>         # mock_config does not work here, because of tz vs timezone subroutines
>-        my $context = new Test::MockModule('C4::Context');
>+        my $context = Test::MockModule->new('C4::Context');
>         $context->mock( 'tz', sub {
>             'America/Sao_Paulo';
>         });
>diff --git a/t/db_dependent/Koha/Z3950Responder/GenericSession.t b/t/db_dependent/Koha/Z3950Responder/GenericSession.t
>index 33dc662827b..dfcad7a770e 100755
>--- a/t/db_dependent/Koha/Z3950Responder/GenericSession.t
>+++ b/t/db_dependent/Koha/Z3950Responder/GenericSession.t
>@@ -51,7 +51,7 @@ subtest 'test_search' => sub {
>         MARC::Field->new('999', '', '', c => '1234567'),
>     );
> 
>-    my $yaml = new Test::MockModule('YAML');
>+    my $yaml = Test::MockModule->new('YAML');
>     $yaml->mock('LoadFile', sub {
>         return {
>             biblios => {
>@@ -64,14 +64,14 @@ subtest 'test_search' => sub {
>         };
>     });
> 
>-    my $builder = new Test::MockModule('Koha::SearchEngine::Elasticsearch::QueryBuilder');
>+    my $builder = Test::MockModule->new('Koha::SearchEngine::Elasticsearch::QueryBuilder');
>     $builder->mock('build_query_compat', sub {
>         my ( $self, $operators, $operands ) = @_;
> 
>         return (undef, $operands->[0]);
>     });
> 
>-    my $search = new Test::MockModule('Koha::SearchEngine::Elasticsearch::Search');
>+    my $search = Test::MockModule->new('Koha::SearchEngine::Elasticsearch::Search');
>     $search->mock('simple_search_compat', sub {
>         my ( $self, $query ) = @_;
> 
>@@ -93,7 +93,7 @@ subtest 'test_search' => sub {
>     sleep(10); # Just a try to see if it fixes Jenkins
> 
>     # Z39.50 protocol tests
>-    my $o = new ZOOM::Options();
>+    my $o = ZOOM::Options->new();
>     $o->option(preferredRecordSyntax => 'xml');
>     $o->option(elementSetName => 'marcxml');
>     $o->option(databaseName => 'biblios');
>diff --git a/t/db_dependent/Koha/Z3950Responder/ZebraSession.t b/t/db_dependent/Koha/Z3950Responder/ZebraSession.t
>index 3de0d2e8384..6088169d470 100755
>--- a/t/db_dependent/Koha/Z3950Responder/ZebraSession.t
>+++ b/t/db_dependent/Koha/Z3950Responder/ZebraSession.t
>@@ -46,15 +46,15 @@ subtest 'test_search' => sub {
>         MARC::Field->new('999', '', '', c => '1234567'),
>     );
> 
>-    my $context = new Test::MockModule('C4::Context');
>+    my $context = Test::MockModule->new('C4::Context');
>     $context->mock('Zconn', sub {
>-        my $Zconn = new Test::MockObject();
>+        my $Zconn = Test::MockObject->new();
>         $Zconn->mock('connect', sub {});
>         $Zconn->mock('err_code', sub {
>             return 0;
>         });
>         $Zconn->mock('search_pqf', sub {
>-            my $results = new Test::MockObject();
>+            my $results = Test::MockObject->new();
>             $results->mock('size', sub {
>                 return 2;
>             });
>@@ -67,7 +67,7 @@ subtest 'test_search' => sub {
>                 } elsif ($index == 1) {
>                     $record = $marc_record_2;
>                 }
>-                my $Zrecord = new Test::MockObject();
>+                my $Zrecord = Test::MockObject->new();
>                 $Zrecord->mock('raw', sub {
>                     return $record->as_xml();
>                 });
>@@ -90,7 +90,7 @@ subtest 'test_search' => sub {
>     }
>     sleep(10); # Just a try to see if it fixes Jenkins
> 
>-    my $o = new ZOOM::Options();
>+    my $o = ZOOM::Options->new();
>     $o->option(preferredRecordSyntax => 'xml');
>     $o->option(elementSetName => 'marcxml');
>     $o->option(databaseName => 'biblios');
>diff --git a/t/db_dependent/Members/GetAllIssues.t b/t/db_dependent/Members/GetAllIssues.t
>index 679cd45352a..45c3682d4e2 100755
>--- a/t/db_dependent/Members/GetAllIssues.t
>+++ b/t/db_dependent/Members/GetAllIssues.t
>@@ -69,7 +69,7 @@ my $borrowernumber2 =
> my $borrower1 = Koha::Patrons->find( $borrowernumber1 )->unblessed;
> my $borrower2 = Koha::Patrons->find( $borrowernumber2 )->unblessed;
> 
>-my $module = new Test::MockModule('C4::Context');
>+my $module = Test::MockModule->new('C4::Context');
> $module->mock( 'userenv', sub { { branch => $branchcode } } );
> 
> my $issues = C4::Members::GetAllIssues();
>diff --git a/t/db_dependent/Members/IssueSlip.t b/t/db_dependent/Members/IssueSlip.t
>index 0ec870d18ed..95867690a1f 100755
>--- a/t/db_dependent/Members/IssueSlip.t
>+++ b/t/db_dependent/Members/IssueSlip.t
>@@ -120,7 +120,7 @@ my $borrowernumber =
>   Koha::Patron->new({ categorycode => $categorycode, branchcode => $branchcode })->store->borrowernumber;
> my $borrower = Koha::Patrons->find( $borrowernumber )->unblessed;
> 
>-my $module = new Test::MockModule('C4::Context');
>+my $module = Test::MockModule->new('C4::Context');
> $module->mock( 'userenv', sub { { branch => $branchcode } } );
> 
> my $today = dt_from_string;
>diff --git a/t/db_dependent/Record.t b/t/db_dependent/Record.t
>index 613e5ea7ea6..22fcdb3de06 100755
>--- a/t/db_dependent/Record.t
>+++ b/t/db_dependent/Record.t
>@@ -21,7 +21,7 @@ t::lib::Mocks::mock_preference( "BibtexExportAdditionalFields", q{} );
> my @marcarray=marc2marc;
> is ($marcarray[0],"Feature not yet implemented\n","error works");
> 
>-my $marc=new MARC::Record;
>+my $marc=MARC::Record->new;
> my $marcxml=marc2marcxml($marc);
> my $testxml=qq(<?xml version="1.0" encoding="UTF-8"?>
> <record
>diff --git a/t/db_dependent/RecordProcessor_EmbedSeeFromHeadings.t b/t/db_dependent/RecordProcessor_EmbedSeeFromHeadings.t
>index 664a0fa0c7a..9d7b4efc325 100755
>--- a/t/db_dependent/RecordProcessor_EmbedSeeFromHeadings.t
>+++ b/t/db_dependent/RecordProcessor_EmbedSeeFromHeadings.t
>@@ -31,7 +31,7 @@ BEGIN {
>         use_ok('Koha::RecordProcessor');
> }
> 
>-my $module = new Test::MockModule('MARC::Record');
>+my $module = Test::MockModule->new('MARC::Record');
> $module->mock('new_from_xml', sub {
>     my $record = MARC::Record->new;
> 
>@@ -82,7 +82,7 @@ subtest "EmbedSeeFromHeadings should skip holdings fields" => sub {
>     );
> 
> 
>-    my $koha_authority = new Test::MockModule('Koha::MetadataRecord::Authority');
>+    my $koha_authority = Test::MockModule->new('Koha::MetadataRecord::Authority');
>     $koha_authority->mock( 'get_from_authid', sub {
> 
>         my $auth_record = MARC::Record->new;
>diff --git a/t/db_dependent/Reserves/GetReserveFee.t b/t/db_dependent/Reserves/GetReserveFee.t
>index cd9bdfac9ec..bb9b4dacbab 100755
>--- a/t/db_dependent/Reserves/GetReserveFee.t
>+++ b/t/db_dependent/Reserves/GetReserveFee.t
>@@ -37,7 +37,7 @@ my $builder = t::lib::TestBuilder->new();
> my $library = $builder->build({
>     source => 'Branch',
> });
>-my $mContext = new Test::MockModule('C4::Context');
>+my $mContext = Test::MockModule->new('C4::Context');
> $mContext->mock( 'userenv', sub {
>     return { branch => $library->{branchcode} };
> });
>diff --git a/t/db_dependent/Search.t b/t/db_dependent/Search.t
>index c8cc3d7f3bc..6a520bc6f80 100755
>--- a/t/db_dependent/Search.t
>+++ b/t/db_dependent/Search.t
>@@ -111,7 +111,7 @@ my @htdocs = split /\//, $htdocs;
> $htdocs[-2] = 'koha-tmpl';
> $htdocs[-1] = 'opac-tmpl';
> $htdocs = join '/', @htdocs;
>-our $contextmodule = new Test::MockModule('C4::Context');
>+our $contextmodule = Test::MockModule->new('C4::Context');
> $contextmodule->mock('preference', sub {
>     my ($self, $pref) = @_;
>     if ($pref eq 'marcflavour') {
>@@ -201,7 +201,7 @@ $contextmodule->mock('preference', sub {
>     }
> });
> 
>-our $bibliomodule = new Test::MockModule('C4::Biblio');
>+our $bibliomodule = Test::MockModule->new('C4::Biblio');
> 
> sub mock_GetMarcSubfieldStructure {
>     my $marc_type = shift;
>@@ -258,7 +258,7 @@ sub run_marc21_search_tests {
>     Koha::Caches->get_instance('config')->flush_all;
> 
>     mock_GetMarcSubfieldStructure('marc21');
>-    my $context = new C4::Context("$datadir/etc/koha-conf.xml");
>+    my $context = C4::Context->new("$datadir/etc/koha-conf.xml");
>     $context->set_context();
> 
>     use_ok('C4::Search');
>@@ -275,7 +275,7 @@ sub run_marc21_search_tests {
>     is(scalar(grep(/^arl$/, @$indexes)), 1, "Accelerated reading level index supported");
>     is(scalar(grep(/^arp$/, @$indexes)), 1, "Accelerated reading point index supported");
> 
>-    my $bibliomodule = new Test::MockModule('C4::Biblio');
>+    my $bibliomodule = Test::MockModule->new('C4::Biblio');
> 
>     my %branches = (
>         'CPL' => { 'branchaddress1' => 'Jefferson Summit', 'branchcode' => 'CPL', 'branchname' => 'Centerville', },
>@@ -700,7 +700,7 @@ ok(MARC::Record::new_from_xml($results_hashref->{biblioserver}->{RECORDS}->[0],'
>     ## Regression test for Bug 10741
> 
>     # make one of the test items appear to be in transit
>-    my $circ_module = new Test::MockModule('C4::Circulation');
>+    my $circ_module = Test::MockModule->new('C4::Circulation');
>     $circ_module->mock('GetTransfers', sub {
>         my $itemnumber = shift // -1;
>         if ($itemnumber == 11) {
>@@ -832,7 +832,7 @@ sub run_unimarc_search_tests {
>     Koha::Caches->get_instance('config')->flush_all;
> 
>     mock_GetMarcSubfieldStructure('unimarc');
>-    my $context = new C4::Context("$datadir/etc/koha-conf.xml");
>+    my $context = C4::Context->new("$datadir/etc/koha-conf.xml");
>     $context->set_context();
> 
>     use_ok('C4::Search');
>diff --git a/t/db_dependent/Search/History.t b/t/db_dependent/Search/History.t
>index c1eaa383f2d..db3a1038580 100755
>--- a/t/db_dependent/Search/History.t
>+++ b/t/db_dependent/Search/History.t
>@@ -362,7 +362,7 @@ sub delete_all {
> subtest 'LoadSearchHistoryToTheFirstLoggedUser working' => sub {
> plan tests =>2;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> 
> my $schema = Koha::Database->schema;
> my $builder = t::lib::TestBuilder->new;
>@@ -388,10 +388,10 @@ sub myMockedget_from_session {
> 
> }
> 
>-my $getfrom = new Test::MockModule( 'C4::Search::History' );
>+my $getfrom = Test::MockModule->new( 'C4::Search::History' );
> $getfrom->mock( 'get_from_session', \&myMockedget_from_session );
> 
>-my $cgi = new Test::MockModule( 'CGI');
>+my $cgi = Test::MockModule->new( 'CGI');
> $cgi->mock('cookie', sub {
>    my ($self, $key) = @_;
>   if (!ref($key) && $key eq 'CGISESSID'){
>@@ -425,7 +425,7 @@ sub MockedCheckauth {
> }
> 
> # Mock checkauth
>-my $auth = new Test::MockModule( 'C4::Auth' );
>+my $auth = Test::MockModule->new( 'C4::Auth' );
> $auth->mock( 'checkauth', \&MockedCheckauth );
> 
> $query->param('koha_login_context', 'opac');
>diff --git a/t/db_dependent/Serials.t b/t/db_dependent/Serials.t
>index 53c697e2d0b..ea9e5a972a0 100755
>--- a/t/db_dependent/Serials.t
>+++ b/t/db_dependent/Serials.t
>@@ -150,7 +150,7 @@ subtest 'Values should not be erased on editing' => sub {
>     my $itemtype = $builder->build( { source => 'Itemtype' } )->{itemtype};
>     my $itemcallnumber = 'XXXmy itemcallnumberXXX';
> 
>-    my $item_record    = new MARC::Record;
>+    my $item_record    = MARC::Record->new;
> 
>     $item_record->append_fields(
>         MARC::Field->new( '080', '', '', "a" => "default" ),
>diff --git a/t/db_dependent/SuggestionEngine_ExplodedTerms.t b/t/db_dependent/SuggestionEngine_ExplodedTerms.t
>index bac1b41c2ea..65308fc0862 100755
>--- a/t/db_dependent/SuggestionEngine_ExplodedTerms.t
>+++ b/t/db_dependent/SuggestionEngine_ExplodedTerms.t
>@@ -10,7 +10,7 @@ use Test::More;
> use Test::MockModule;
> use Test::Warn;
> 
>-my $contextModule = new Test::MockModule('C4::Context');
>+my $contextModule = Test::MockModule->new('C4::Context');
> $contextModule->mock('preference', sub {
>     return '';
> });
>@@ -40,12 +40,12 @@ sub get_where {
> 
> my $langModule;
> if (! defined $ENV{KOHA_CONF}) {
>-    warning_like { $langModule = new Test::MockModule('C4::Languages'); }
>+    warning_like { $langModule = Test::MockModule->new('C4::Languages'); }
>         qr /unable to locate Koha configuration file koha-conf.xml/,
>         'Expected warning for unset $KOHA_CONF';
> }
> else {
>-    $langModule = new Test::MockModule('C4::Languages');
>+    $langModule = Test::MockModule->new('C4::Languages');
> }
> $langModule->mock('regex_lang_subtags', sub {
>     return {
>@@ -89,12 +89,12 @@ $langModule->mock('getTranslatedLanguages', sub {
> });
> my $tmplModule;
> if (! defined $ENV{KOHA_CONF}) {
>-    warning_like { $tmplModule = new Test::MockModule('C4::Templates'); }
>+    warning_like { $tmplModule = Test::MockModule->new('C4::Templates'); }
>         qr /unable to locate Koha configuration file koha-conf.xml/,
>         'Expected warning for unset $KOHA_CONF';
> }
> else {
>-    $tmplModule = new Test::MockModule('C4::Templates');
>+    $tmplModule = Test::MockModule->new('C4::Templates');
> }
> $tmplModule->mock('_get_template_file', sub {
>     my ($tmplbase, $interface, $query) = @_;
>diff --git a/t/db_dependent/TablesSettings.t b/t/db_dependent/TablesSettings.t
>index eda462d817d..97121093b4f 100755
>--- a/t/db_dependent/TablesSettings.t
>+++ b/t/db_dependent/TablesSettings.t
>@@ -14,7 +14,7 @@ my $dbh = C4::Context->dbh;
> 
> $dbh->do(q|DELETE FROM columns_settings|);
> 
>-my $module = new Test::MockModule('C4::Utils::DataTables::TablesSettings');
>+my $module = Test::MockModule->new('C4::Utils::DataTables::TablesSettings');
> $module->mock(
>     'get_yaml',
>     sub {
>diff --git a/t/db_dependent/Template/Plugin/KohaDates.t b/t/db_dependent/Template/Plugin/KohaDates.t
>index 53449d87957..e40c79565e9 100755
>--- a/t/db_dependent/Template/Plugin/KohaDates.t
>+++ b/t/db_dependent/Template/Plugin/KohaDates.t
>@@ -13,7 +13,7 @@ BEGIN {
>         use_ok('Koha::Template::Plugin::KohaDates');
> }
> 
>-my $module_context = new Test::MockModule('C4::Context');
>+my $module_context = Test::MockModule->new('C4::Context');
> 
> my $date = "1973-05-21";
> my $context = C4::Context->new();
>diff --git a/t/db_dependent/XISBN.t b/t/db_dependent/XISBN.t
>index 4cc939d28ac..0689273df52 100755
>--- a/t/db_dependent/XISBN.t
>+++ b/t/db_dependent/XISBN.t
>@@ -23,7 +23,7 @@ my $schema = Koha::Database->new->schema;
> $schema->storage->txn_begin;
> 
> my $engine = C4::Context->preference("SearchEngine") // 'Zebra';
>-my $search_module = new Test::MockModule("Koha::SearchEngine::${engine}::Search");
>+my $search_module = Test::MockModule->new("Koha::SearchEngine::${engine}::Search");
> 
> $search_module->mock('simple_search_compat', \&Mock_simple_search_compat );
> 
>diff --git a/t/db_dependent/api/v1/checkouts.t b/t/db_dependent/api/v1/checkouts.t
>index 5f7f4ed2fe8..ee47e1ef475 100755
>--- a/t/db_dependent/api/v1/checkouts.t
>+++ b/t/db_dependent/api/v1/checkouts.t
>@@ -59,7 +59,7 @@ my $unauth_userid = $patron->userid;
> my $patron_id = $patron->borrowernumber;
> 
> my $branchcode = $builder->build({ source => 'Branch' })->{ branchcode };
>-my $module = new Test::MockModule('C4::Context');
>+my $module = Test::MockModule->new('C4::Context');
> $module->mock('userenv', sub { { branch => $branchcode } });
> 
> $t->get_ok( "//$userid:$password@/api/v1/checkouts?patron_id=$patron_id" )
>diff --git a/t/lib/Mocks.pm b/t/lib/Mocks.pm
>index df2d587b073..35aa8f900f8 100644
>--- a/t/lib/Mocks.pm
>+++ b/t/lib/Mocks.pm
>@@ -7,7 +7,7 @@ use Test::MockModule;
> 
> my %configs;
> sub mock_config {
>-    my $context = new Test::MockModule('C4::Context');
>+    my $context = Test::MockModule->new('C4::Context');
>     my ( $conf, $value ) = @_;
>     $configs{$conf} = $value;
>     $context->mock('config', sub {
>@@ -27,7 +27,7 @@ sub mock_preference {
> 
>     $preferences{lc($pref)} = $value;
> 
>-    my $context = new Test::MockModule('C4::Context');
>+    my $context = Test::MockModule->new('C4::Context');
>     $context->mock('preference', sub {
>         my ( $self, $pref ) = @_;
>         $pref = lc($pref);
>diff --git a/tools/access_files.pl b/tools/access_files.pl
>index 73a0ae47dc7..5ead5814aa0 100755
>--- a/tools/access_files.pl
>+++ b/tools/access_files.pl
>@@ -32,7 +32,7 @@ use File::stat qw(stat);
> use Digest::MD5 qw(md5_hex);
> use Encode;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> my $file_id = $input->param("id");
> my $access_dirs = C4::Context->config('access_dirs');
> 
>diff --git a/tools/ajax-inventory.pl b/tools/ajax-inventory.pl
>index 2aeda408479..72175cfb7a5 100755
>--- a/tools/ajax-inventory.pl
>+++ b/tools/ajax-inventory.pl
>@@ -5,7 +5,7 @@ use CGI qw ( -utf8 );
> use C4::Auth;
> use C4::Items qw( ModDateLastSeen );
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> # Authentication
> my ($status, $cookie, $sessionId) = C4::Auth::check_api_auth($input, { tools => 'inventory' });
>diff --git a/tools/automatic_item_modification_by_age.pl b/tools/automatic_item_modification_by_age.pl
>index cd6a512e6f3..ae9bcec192b 100755
>--- a/tools/automatic_item_modification_by_age.pl
>+++ b/tools/automatic_item_modification_by_age.pl
>@@ -43,7 +43,7 @@ use C4::Koha;
> use Koha::Items;
> use Koha::Biblioitems;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> # open template
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>diff --git a/tools/batchMod.pl b/tools/batchMod.pl
>index dc170a6bdb0..dca2e41ad43 100755
>--- a/tools/batchMod.pl
>+++ b/tools/batchMod.pl
>@@ -46,7 +46,7 @@ use Koha::ItemTypes;
> use Koha::Patrons;
> use Koha::SearchEngine::Indexer;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> my $dbh = C4::Context->dbh;
> my $error        = $input->param('error');
> my @itemnumbers  = $input->multi_param('itemnumber');
>diff --git a/tools/batch_delete_records.pl b/tools/batch_delete_records.pl
>index d07adf14326..ea87d8b6c85 100755
>--- a/tools/batch_delete_records.pl
>+++ b/tools/batch_delete_records.pl
>@@ -33,7 +33,7 @@ use Koha::Authorities;
> use Koha::Biblios;
> use Koha::Items;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> my $op = $input->param('op') // q|form|;
> my $recordtype = $input->param('recordtype') // 'biblio';
> 
>diff --git a/tools/batch_extend_due_dates.pl b/tools/batch_extend_due_dates.pl
>index cae338c07e8..77c80237abf 100755
>--- a/tools/batch_extend_due_dates.pl
>+++ b/tools/batch_extend_due_dates.pl
>@@ -27,7 +27,7 @@ use C4::Output qw( output_html_with_http_headers );
> use Koha::Checkouts;
> use Koha::DateUtils qw( dt_from_string output_pref );
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> my $op = $input->param('op') // q|form|;
> my $preview_results = $input->param('preview_results');
> 
>diff --git a/tools/batch_record_modification.pl b/tools/batch_record_modification.pl
>index d65883aff22..d118120768d 100755
>--- a/tools/batch_record_modification.pl
>+++ b/tools/batch_record_modification.pl
>@@ -37,7 +37,7 @@ use Koha::BackgroundJob::BatchUpdateAuthority;
> use Koha::MetadataRecord::Authority;
> use Koha::Virtualshelves;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> our $dbh = C4::Context->dbh;
> my $op = $input->param('op') // q|form|;
> my $recordtype = $input->param('recordtype') // 'biblio';
>diff --git a/tools/batch_records_ajax.pl b/tools/batch_records_ajax.pl
>index 8bfb4ab242c..4ddb0f53691 100755
>--- a/tools/batch_records_ajax.pl
>+++ b/tools/batch_records_ajax.pl
>@@ -39,7 +39,7 @@ use C4::Charset;
> use C4::Auth qw/check_cookie_auth/;
> use C4::ImportBatch;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> my @sort_columns =
>   qw/import_record_id title status overlay_status overlay_status/;
>diff --git a/tools/cleanborrowers.pl b/tools/cleanborrowers.pl
>index 354c3159a94..c323eeb908d 100755
>--- a/tools/cleanborrowers.pl
>+++ b/tools/cleanborrowers.pl
>@@ -45,7 +45,7 @@ use Date::Calc qw/Today Add_Delta_YM/;
> use Koha::Patrons;
> use Koha::List::Patron;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> # Fetch the paramater list as a hash in scalar context:
> #  * returns paramater list as tied hash ref
>diff --git a/tools/copy-holidays.pl b/tools/copy-holidays.pl
>index 6e354512264..e11353a09da 100755
>--- a/tools/copy-holidays.pl
>+++ b/tools/copy-holidays.pl
>@@ -27,7 +27,7 @@ use C4::Output;
> 
> use C4::Calendar;
> 
>-my $input               = new CGI;
>+my $input               = CGI->new;
> my $dbh                 = C4::Context->dbh();
> 
> checkauth($input, 0, {tools=> 'edit_calendar'}, 'intranet');
>diff --git a/tools/csv-profiles.pl b/tools/csv-profiles.pl
>index 27ee6a8cd62..e6a7bdaa0d8 100755
>--- a/tools/csv-profiles.pl
>+++ b/tools/csv-profiles.pl
>@@ -44,7 +44,7 @@ use CGI qw ( -utf8 );
> use C4::Koha;
> use Koha::CsvProfiles;
> 
>-my $input            = new CGI;
>+my $input            = CGI->new;
> my $export_format_id = $input->param('export_format_id');
> my $op               = $input->param('op') || 'list';
> my @messages;
>diff --git a/tools/exceptionHolidays.pl b/tools/exceptionHolidays.pl
>index 7095157617b..68940744594 100755
>--- a/tools/exceptionHolidays.pl
>+++ b/tools/exceptionHolidays.pl
>@@ -11,7 +11,7 @@ use DateTime;
> use C4::Calendar;
> use Koha::DateUtils;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> my $dbh = C4::Context->dbh();
> 
> checkauth($input, 0, {tools=> 'edit_calendar'}, 'intranet');
>diff --git a/tools/export.pl b/tools/export.pl
>index 5b252be05eb..6d677abf5b1 100755
>--- a/tools/export.pl
>+++ b/tools/export.pl
>@@ -32,7 +32,7 @@ use Koha::Exporter::Record;
> use Koha::ItemTypes;
> use Koha::Libraries;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> 
> my $dont_export_items = $query->param("dont_export_item") || 0;
> my $record_type       = $query->param("record_type");
>diff --git a/tools/holidays.pl b/tools/holidays.pl
>index 2a9f02dfb25..252882dbef3 100755
>--- a/tools/holidays.pl
>+++ b/tools/holidays.pl
>@@ -26,7 +26,7 @@ use C4::Output;
> use C4::Calendar;
> use Koha::DateUtils;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> my $dbh = C4::Context->dbh();
> # Get the template to use
>diff --git a/tools/koha-news.pl b/tools/koha-news.pl
>index 821cd4bb154..2b62aaf0576 100755
>--- a/tools/koha-news.pl
>+++ b/tools/koha-news.pl
>@@ -33,7 +33,7 @@ use C4::Languages qw(getTranslatedLanguages);
> use Date::Calc qw/Date_to_Days Today/;
> use Koha::DateUtils;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> my $id             = $cgi->param('id');
> my $title          = $cgi->param('title');
>diff --git a/tools/letter.pl b/tools/letter.pl
>index 7af71dda2a3..d6740a80eda 100755
>--- a/tools/letter.pl
>+++ b/tools/letter.pl
>@@ -57,7 +57,7 @@ sub protected_letters {
>     return { map { $_->[0] => 1 } @{$codes} };
> }
> 
>-our $input       = new CGI;
>+our $input       = CGI->new;
> my $searchfield = $input->param('searchfield');
> my $script_name = '/cgi-bin/koha/tools/letter.pl';
> our $branchcode  = $input->param('branchcode');
>diff --git a/tools/manage-marc-import.pl b/tools/manage-marc-import.pl
>index 04c62e267c6..32664c6e094 100755
>--- a/tools/manage-marc-import.pl
>+++ b/tools/manage-marc-import.pl
>@@ -39,7 +39,7 @@ use Koha::BiblioFrameworks;
> 
> my $script_name = "/cgi-bin/koha/tools/manage-marc-import.pl";
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> my $op = $input->param('op') || '';
> my $completedJobID = $input->param('completedJobID');
> our $runinbackground = $input->param('runinbackground');
>diff --git a/tools/marc_modification_templates.pl b/tools/marc_modification_templates.pl
>index aa31611710e..27ace821e8f 100755
>--- a/tools/marc_modification_templates.pl
>+++ b/tools/marc_modification_templates.pl
>@@ -25,7 +25,7 @@ use C4::Koha;
> use C4::Output;
> use C4::MarcModificationTemplates;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> my $op = $cgi->param('op') || q{};
> my $template_id = $cgi->param('template_id');
>diff --git a/tools/modborrowers.pl b/tools/modborrowers.pl
>index eed17ea6eb0..5a0193f75b5 100755
>--- a/tools/modborrowers.pl
>+++ b/tools/modborrowers.pl
>@@ -39,7 +39,7 @@ use Koha::Patron::Categories;
> use Koha::Patron::Debarments;
> use Koha::Patrons;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> my $op = $input->param('op') || 'show_form';
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {   template_name   => "tools/modborrowers.tt",
>diff --git a/tools/newHolidays.pl b/tools/newHolidays.pl
>index 7644006a2c7..c402dfdf7f2 100755
>--- a/tools/newHolidays.pl
>+++ b/tools/newHolidays.pl
>@@ -28,7 +28,7 @@ use C4::Calendar;
> use DateTime;
> use Koha::DateUtils;
> 
>-my $input               = new CGI;
>+my $input               = CGI->new;
> my $dbh                 = C4::Context->dbh();
> 
> checkauth($input, 0, {tools=> 'edit_calendar'}, 'intranet');
>diff --git a/tools/overduerules.pl b/tools/overduerules.pl
>index 2ec829162f5..293c51c78ab 100755
>--- a/tools/overduerules.pl
>+++ b/tools/overduerules.pl
>@@ -30,7 +30,7 @@ use Koha::Libraries;
> 
> use Koha::Patron::Categories;
> 
>-our $input = new CGI;
>+our $input = CGI->new;
> my $dbh = C4::Context->dbh;
> 
> my @patron_categories = Koha::Patron::Categories->search( { overduenoticerequired => { '>' => 0 } } );
>diff --git a/tools/picture-upload.pl b/tools/picture-upload.pl
>index 334ee3e1bd0..31dec5193e4 100755
>--- a/tools/picture-upload.pl
>+++ b/tools/picture-upload.pl
>@@ -35,7 +35,7 @@ use Koha::Patrons;
> use Koha::Patron::Images;
> use Koha::Token;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> unless (C4::Context->preference('patronimages')) {
>     # redirect to intranet home if patronimages is not enabled
>diff --git a/tools/problem-reports.pl b/tools/problem-reports.pl
>index c9a1afd222d..0b07511cf3f 100755
>--- a/tools/problem-reports.pl
>+++ b/tools/problem-reports.pl
>@@ -25,7 +25,7 @@ use C4::Output;
> use C4::Auth;
> use Koha::ProblemReports;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> 
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {
>diff --git a/tools/quotes-upload.pl b/tools/quotes-upload.pl
>index a065da09431..8ca4583471e 100755
>--- a/tools/quotes-upload.pl
>+++ b/tools/quotes-upload.pl
>@@ -27,7 +27,7 @@ use C4::Koha;
> use C4::Context;
> use C4::Output;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
>     {
>diff --git a/tools/quotes.pl b/tools/quotes.pl
>index 6ac4371542c..a10e5747f7c 100755
>--- a/tools/quotes.pl
>+++ b/tools/quotes.pl
>@@ -27,7 +27,7 @@ use C4::Koha;
> use C4::Context;
> use C4::Output;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> 
> my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
>     {
>diff --git a/tools/quotes/quotes-upload_ajax.pl b/tools/quotes/quotes-upload_ajax.pl
>index 7a429abc462..c988e7c5405 100755
>--- a/tools/quotes/quotes-upload_ajax.pl
>+++ b/tools/quotes/quotes-upload_ajax.pl
>@@ -29,7 +29,7 @@ use C4::Koha;
> use C4::Context;
> use C4::Output;
> 
>-my $cgi = new CGI;
>+my $cgi = CGI->new;
> my $dbh = C4::Context->dbh;
> 
> my ( $status, $cookie, $sessionID ) = C4::Auth::check_api_auth( $cgi, { tools => 'edit_quotes' } );
>diff --git a/tools/scheduler.pl b/tools/scheduler.pl
>index 05778e21cc1..295a04bfdc6 100755
>--- a/tools/scheduler.pl
>+++ b/tools/scheduler.pl
>@@ -32,7 +32,7 @@ BEGIN {
>     $debug = $ENV{DEBUG} || 0;
> }
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> my $base;
> 
> if ( C4::Context->config('supportdir') ) {
>diff --git a/tools/showdiffmarc.pl b/tools/showdiffmarc.pl
>index 48f622aab52..c39d2ad91b6 100755
>--- a/tools/showdiffmarc.pl
>+++ b/tools/showdiffmarc.pl
>@@ -35,7 +35,7 @@ use C4::ImportBatch;
> use Koha::Biblios;
> 
> # Input params
>-my $input        = new CGI;
>+my $input        = CGI->new;
> my $recordid = $input->param('id');
> my $importid     = $input->param('importid');
> my $batchid      = $input->param('batchid');
>diff --git a/tools/stage-marc-import.pl b/tools/stage-marc-import.pl
>index 9684fabeee8..0ea436351f0 100755
>--- a/tools/stage-marc-import.pl
>+++ b/tools/stage-marc-import.pl
>@@ -43,7 +43,7 @@ use C4::BackgroundJob;
> use C4::MarcModificationTemplates;
> use Koha::Plugins;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> my $fileID                     = $input->param('uploadedfileid');
> my $runinbackground            = $input->param('runinbackground');
>diff --git a/tools/stockrotation.pl b/tools/stockrotation.pl
>index 8317617a5ad..18891fa3db6 100755
>--- a/tools/stockrotation.pl
>+++ b/tools/stockrotation.pl
>@@ -38,7 +38,7 @@ use Koha::StockRotationStages;
> use Koha::Item;
> use Koha::Util::StockRotation qw(:ALL);
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> unless (C4::Context->preference('StockRotation')) {
>     # redirect to Intranet home if self-check is not enabled
>diff --git a/tools/tools-home.pl b/tools/tools-home.pl
>index 375cc09e76b..69fc092ae11 100755
>--- a/tools/tools-home.pl
>+++ b/tools/tools-home.pl
>@@ -23,7 +23,7 @@ use C4::Output;
> use C4::Tags qw/get_count_by_tag_status/;
> use Koha::Reviews;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {
>         template_name   => "tools/tools-home.tt",
>diff --git a/tools/upload-cover-image.pl b/tools/upload-cover-image.pl
>index b6614df6ff4..7ea3231fcfb 100755
>--- a/tools/upload-cover-image.pl
>+++ b/tools/upload-cover-image.pl
>@@ -51,7 +51,7 @@ use C4::Log;
> 
> my $debug = 1;
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> my $fileID = $input->param('uploadedfileid');
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>diff --git a/tools/viewlog.pl b/tools/viewlog.pl
>index 9c2141eb2f8..d7b7745c1c1 100755
>--- a/tools/viewlog.pl
>+++ b/tools/viewlog.pl
>@@ -45,7 +45,7 @@ plugin that shows stats
> 
> =cut
> 
>-my $input = new CGI;
>+my $input = CGI->new;
> 
> $debug or $debug = $cgi_debug;
> my $do_it    = $input->param('do_it');
>diff --git a/virtualshelves/addbybiblionumber.pl b/virtualshelves/addbybiblionumber.pl
>index 8d43ab9439d..68e7da5035a 100755
>--- a/virtualshelves/addbybiblionumber.pl
>+++ b/virtualshelves/addbybiblionumber.pl
>@@ -66,7 +66,7 @@ use C4::Auth;
> use Koha::Biblios;
> use Koha::Virtualshelves;
> 
>-my $query           = new CGI;
>+my $query           = CGI->new;
> my $shelfnumber     = $query->param('shelfnumber');
> my $newvirtualshelf = $query->param('newvirtualshelf');
> my $newshelf        = $query->param('newshelf');
>diff --git a/virtualshelves/downloadshelf.pl b/virtualshelves/downloadshelf.pl
>index 6d788d91f87..c6cb31f4968 100755
>--- a/virtualshelves/downloadshelf.pl
>+++ b/virtualshelves/downloadshelf.pl
>@@ -33,7 +33,7 @@ use Koha::CsvProfiles;
> use Koha::Virtualshelves;
> 
> use utf8;
>-my $query = new CGI;
>+my $query = CGI->new;
> 
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user (
>     {
>diff --git a/virtualshelves/shelves.pl b/virtualshelves/shelves.pl
>index e219e9a23a1..d233eb1355b 100755
>--- a/virtualshelves/shelves.pl
>+++ b/virtualshelves/shelves.pl
>@@ -37,7 +37,7 @@ use Koha::Virtualshelves;
> 
> use constant ANYONE => 2;
> 
>-my $query = new CGI;
>+my $query = CGI->new;
> 
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>     {   template_name   => "virtualshelves/shelves.tt",
>diff --git a/xt/author/valid-templates.t b/xt/author/valid-templates.t
>index 9d195373e09..3724d035756 100755
>--- a/xt/author/valid-templates.t
>+++ b/xt/author/valid-templates.t
>@@ -74,7 +74,7 @@ if ( $ENV{KOHA_PROVE_CPUS} ) {
>     $ncpu = Sys::CPU::cpu_count();
> }
> 
>-my $pm   = new Parallel::ForkManager($ncpu);
>+my $pm   = Parallel::ForkManager->new($ncpu);
> 
> # Tests
> foreach my $theme ( @themes ) {
>-- 
>2.28.0

Actions: View | Diff | Splinter Review

Attachments on bug 25898: 106423 | 111351 | 111352 | 111588 | 111589 | 111714 | 112525