バッチのテスト (>_<)

現在、バッチプログラムは全てシェルで起動してPerlで処理する形になっている。
また、このPerlのプログラムは、1年前くらいに作成されたものであるにも関わらず、旧態依然のグローバル変数使いまくり、PerlUnit非対応という代物。。。
たった1行のSQL文を直すのに、テストをするのが大変でしょうがない。
もっと簡単にPerlのテストが出来ないものか。。。